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Wer den Computer zu seinem 
Hobby oder Beruf macht, steht in 
mehrerer Hinsicht vor einer 
schwierigen Wahl. Er muß sich 
zwischen einer Vielzahl von Peri- 
pherie, Betriebssystemen und 
Programmiersprachen entschei- 
den. Hier zeigen wir Ihnen die 
wichtigsten Programmierspra- 
chen, ihre Entwicklungsge- 
schichte und was sie können. 


2: braucht Spra- 
che. Wenn sich zwei Men- 
schen miteinander unterhal- 
ten, benutzen sie dazu das gespro- 
chene Wort oder, sofern sie nicht die 
gleiche Sprache verstehen, Hände und 
Füße. Dieses Prinzip läßt sich nicht 
ohne weiteres auf die Verständigung 
zwischen Mensch und Computer 
anwenden. Kommunikation ist der 
Datenaustausch zwischen mehreren 
Parteien, die einander verstehen müs- 
sen, jedoch ist ein Computer im Urzu- 
stand alles andere als verständig. Er 
besitztlediglich eine mehr oder weniger 
große Anzahl von Fähigkeiten, die er 
sehr schnell ausführen, aber nicht selb- 
ständig koordinieren kann. 





Programmiersprachen sind, im Ge- 
gensatz zur weitverbreiteten Meinung, 
kein Mittel, um sich mit dem Computer 
zu unterhalten. Sie dienen lediglich 
dazu, dem Computer über eine Kette 
von Befehlen mitzuteilen, was er Schritt 
für Schritt zu tun hat. Programmierung 
wurde lange Zeit unter dem Hauptau- 
genmerk der Mensch-Maschine-Kom- 
munikation betrachtet. Der wichtigste 
Aspekt lag darin, zu Problemlösungen 
unter möglichst effizienter Nutzung der 
Maschinenkapazität zu gelangen. Seit 
Computer in jüngster Zeit eine stärkere 
Verbreitung erfahren haben, rückte 
jedoch ein zweiter Gesichtspunkt 
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immer mehr in den Vordergrund: Die 
Programme werden komplexer und der 
Wartungsaufwand (Korrektur oder 
Erweiterung eines Programms) immer 
größer. Dadurch, daß an vielen Pro- 
grammen große Teams über lange Zeit- 
räume hinweg arbeiten, geraten Pro- 
grammiersprachen auch mehr und 
mehr zum Kommunikationsmittel zwi- 
schen diesen Gruppen von Menschen. 
Das bedeutet, daß ein guter Program- 
mierer immer seine Programme auch 
für seine Nachwelt verständlich gestal- 
ten, und seine Kunsttertigkeit nicht mit 
der Anwendung von Programmiertricks 
unter Beweis stellen sollte Einem 
potentiellen Benutzer, der das Pro- 
gramm lesen und eventuelländern muß, 
sollte die Funktionsweise möglichst 
schon beim Lesen klar werden. 

Statt »Programmiersprache« wäre die 
Bezeichnung »Kommandosequenz« ei- 
gentlich richtiger. Was dem Computer 
befohlen wird, führt er geduldig und 
beliebig oft aus, einzige Bedingung ist 
ein fehlerfreies Programm. Einige Psy- 
chologen behaupten denn auch, die 
Beliebtheit von Computern sei darauf 
zurückzuführen, daß viele Menschen 
ihre diktatorischen Triebe beim Pro- 
grammieren ausleben! 

Wenden wir uns der Frage zu, die 
wohl jeden Computeranwender irgend- 
wann einmal bewegt, nämlich, was 
denn welche Programmiersprache 
wohl zu leisten vermag. 

im Laufe der Computergeschichte, 
die seit den ersten Relaisrechnern Kon- 
rad Zuses nicht mehr als ein halbes 
Jahrhundert zählt, wurde eine Unzahl 
Programmiersprachen, Spracherweite- 
rungen und Dialekte entwickelt. Dabei 
standen immer zwei Überlegungen im 
Vordergrund. Zum einen mußten die 
Hardwarevoraussetzungen berück- 
sichtigt werden. Zum anderen orien- 
tieren sich die Programmentwickler an 
den zu bearbeitenden Problemstellun- 
gen und den Bedürfnissen der Anwen- 
der. Je nach Computertyp und Pro- 
blemstellung werden vom Programmie- 
rer verschiedene Programmstrukturen 
(Module, Bilockkonzept, Verbundty- 


pen), spezialisierte Befehle und unter- 








schiedliche Datentypen (Integer, Real, 
Complex, String, etc.) benötigt. Auf die- 
ser Grundlage entwickelten sich neben 
den bekannten Sprachen eine unüber- 
schaubare Anzahl Exoten, die meistens 
nur in einzelnen Universitäten einge- 
setzt wurden. 


Vielfalt = Freud 
oder Leid? 


An kaum einem Punkt scheiden sich 
die Geister in der Computerszene so 
stark wie in der Auswahl der Beurteilung 
der Programmiersprachen. Wer den 
Heimcomputer zu seinen Hobbies 
zählt, lernt in aller Regel zunächst fleißig 
Basic. Schließlich gehört ja der Basic- 
Interpreter zum Lieferumfang. Im Laufe 
der Zeit werden die eigenen Pro- 
gramme immer länger und unübersicht- 
licher, die einzelnen Programmteile 
sind durch ein unentwirrbares Geflecht 
von GOTO-Anweisungen miteinander 
verknotet (böse Zungen sprechen des- 
halb von »Spaghetti-Code«). 

Mit dem wachsenden Bedürfnis nach 
Strukturierung, die in Basic nur jemand 
mit viel Selbstdisziplin erreicht, und 
nach Geschwindigkeit, die für Basic ein 
Fremdwort ist, sieht man sich nach Aus- 
wegen um. Dabei fühlt sich die eine 
Gruppe wie magisch von dem Begriff 
Assembler angezogen und begibt sich 
auf die unterste Sprachebene, um 
fortan in mühseliger Kleinarbeit Byte für 
Byte zu programmieren. Hiermit wird 
zwar ein Höchstmaß an Geschwindig- 
keit möglich, aber die Übersichtlichkeit 
kommt nach wie vor zu kurz. Die zweite 
Gruppe der Programmier-Gemeinde 
wendet sich deshalb modernen Hoch- 
sprachen zu, wie Pascal, Forth, Modula, 
Comal, Ada, C und so weiter. Diese 
Sprachen zwingen den Programmierer 
dazu, seine Programme modular (dies 
bedeutet, einzelne Aufgaben werden in 
»Paketen« oder »Modulen« zusammen- 
gefaßt) zu gestalten. Durch die so 
erreichte Übersichtlichkeit lassen sich 
Programme später von jedermann, 
Sprachkenntnisse vorausgesetzt, 
nachvollziehen und ändern. Zudem 








sind einige dieser Sprachen sehr 
assemblernah, wie zum Beispiel Forth, 
womit auch Geschwindigkeit kein Pro- 
blem mehr ist. Moderne Programmier- 
sprachen unterstützen also Programm- 
strukturen und gehen ebenso mit 
Daten- und Kontrollstrukturen problem- 
gerecht um. 

Dennoch werden im professionellen 
Bereich (Universitäten, Verwaltung) 
»klassische« Sprachen bevorzugt, wie 
PL/1, Cobol und Fortran. Es sprechen 
auch gute Gründe dafür: So sind die 
neueren Programmiersprachen oftmals 
auf der vorhandenen Hardware noch 
nicht verfügbar, oder sie vertragen sich 
mit bereits vorhandenen Softwarekom- 
ponenten nicht. Ein anderer Faktor sind 
die Vorkenntnisse des Wartungsperso- 
nals und und und .... Jeder Informatik- 
student, jeder Praktiker kann diese 





Reihe beliebig fortsetzen. Und schließ- 
lich ist gute Software immer noch der 
Triumph des Programmierers, nicht der 
der Programmiersprache. 

Seit das Betriebssystem CP/M auf 
Computern wie dem Commodore 128, 
Schneider CPC, oder dem Atari ST 
einen neuen Frühling erlebt, werden 
diese Klassiker neuerdings auch auf 
Heimcomputern interessant. Sehr 
wahrscheinlich wird sich ein breiter 
Anwenderkreis hierfür finden. Welcher 
Programmierer begrüßt es nicht, wenn 
er seine Produkte teilweise in der 
»guten Stube« austesten kann? 

Eine Sonderstellung unter den Pro- 
grammiersprachen nehmen die Spra- 
chen für »künstliche Intelligenz« (Kl) 
ein. Deren bekannteste Vertreter hei- 
Ben Lisp und Prolog. KlI-Sprachen 
bauen auf einem grundlegend neuen 
Konzept auf, bei dem der Programmie- 
rer dem Computer im Dialog sein Pro- 
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blem mitteilt. Wegen des hohen Spei- 
cherbedarfs sind KlI-Programme auf 
Microcomputern nur sehr einge- 
schränkt einsatzfähig. Dies wird sich 
jedoch bald ändern. Man darf gespannt 
sein, wie sich Kl auf den 16-Bit- 
Computern entwickeln wird, die janicht 
nur in punkto Schnelligkeit, sondern 
auch im Speicherangebot einen ganz 
neuen Standard setzen. Der Künstli- 
chen Intelligenz ist in diesem Sonder- 
heft ein eigener Beitrag gewidmet. 

Fassen wir zusammen: Sinnvoll las- 
sen sich die Programmiersprachen in 
vier Gruppen unterteilen: 


1. Assemblersprachen: Sie bieten 
den Vorteil, daß sie die Möglichkeiten 
der Hardware optimal ausnutzen. 
Assembler versteht jeder Prozessor 
unmittelbar. Jede höhere Programmiier- 


sprache muß beim Programmablauf 
erst in Assemblercode übersetzt wer- 
den und ist deshalb weniger universell. 
Gegen Assembler sprechen die müh- 
selige Programmierung, die Gebunden- 
heit an Prozessor und Hardware sowie 
die schwierige Wartung. 

2. Klassische Hochsprachen: Sie 
sind zur Zeit am weitesten verbreitet, 
aber genügen wegen ihrer altertümli- 
chen Konzeption den Anforderungen 
moderner Programmierung nicht mehr. 

3. Moderne Hochsprachen: Sie kön- 
nen sich gegendie »Alteingesessenen« 
nur langsam durchsetzen. Sie bieten 
Strukturierungshilfen, ausgeprägte 
Möglichkeiten der Datenbeschreibung, 
und unterstützen die Selbstdokumenta- 
tion des Programmtextes durch eine 
angemessene Verbalisierung. 

4. Kl-Sprachen sind heutzutage 
noch Gegenstand intensiver Forschun- 
gen und stellen eine völlig neue und 





andersartige Klasse von Programmier- 
sprachen dar. In diesem Beitrag wollen 
wir uns deshalb nicht weiter mit ihnen 
beschäftigen. 

Wie Sie gesehen haben, ist der Spra- 
chenwald immer noch sehr dicht, auch 
wenn man sich auf die Auswahl der 
wichtigsten Programmiersprachen 
beschränkt. Ein bedeutendes Auswahl- 
Kriterium sind die qualitativen Merk- 
male. Bevor wir diese besprechen, 
noch zu einigen zentralen Begriffen: 

Algorithmus - Jedem Programm lie- 
gen ein oder mehrere Lösungsverfah- 
ren zugrunde, oft auch als Algorithmus 
bezeichnet. Ein solcher Algorithmus ist 
definiert als eindeutige und vollständige 
Vorschrift zur Lösung einer Problem- 
klasse mit einer Abfolge von Schritten, 
die in einem endlichen Zeitraum ausge- 
führt werden. 

Daten heißen dabei die Objekte, die 
der Algorithmus bearbeitet. 

Programm nennt man folgerichtig die 
maschinengerechte Aufbereitung der 
Daten und des Algorithmus. Diese Auf- 
bereitung geschieht mit Hilfe einer 
künstlichen Sprache, eben der Pro- 
grammiersprache. Diese setzt sich 
aus einer Menge von Zeichen zusam- 
men, die ihrerseits nach bestimmten 
Regeln zusammengesetzt werden kön- 
nen. Die somit geschaffenen Sprach- 
elemente werden von der Maschine 
unmittelbar (als Maschinensprache) 
oder unter Zuhilfenahme von Überset- 
zungsprogrammen (als Hochsprache) 
»verstanden«e. Der Übersetzer stellt 
nichts weiter dar, als einen speziellen 
Algorithmus, der in der Lage ist, alle 
Befehle einer Hochsprache in den ent- 
sprechenden Assemblercode zu trans- 
formieren. Er ist grob vergleichbar mit 
einer Bibliothek von kleinen Assembler- 
Unterprogrammen, wobei jedem Befehl 
der Hochsprache eines dieser Unter- 
programme zugeordnet ist. 


Compiler und 
Interpreter 


Übersetzungsprogramme gliedern 
sich in zwei Typen, die die gleiche Auf- 
gabe auf unterschiedliche Weise erfül- 
len. Als erstes sind die Compller zu 
nennen. Sie tauchten auch in der 
geschichtlichen Entwicklung zuerst 
auf. Der Compiler übersetzt den Pro- 
grammtext (Quellcode) in einem oder 
mehreren Durchgängen (Passes) kom- 
plett in Assemblercode (Objektcode). 
Der Compiler selbst wird daher beim 
Programmlauf nicht mehr benötigt. 
Natürlich benutzt man für unterschiedli- 
che Computer, mit verschiedener Hard- 
ware und Maschinensprache auch 
unterschiedliche Compiler. 
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Der zweite im Bund der Dolmetscher 
nennt sich Interpreter. Er ist der fleißi- 
gere von beiden. Zunächst muß der 
Quellcode direkt im Arbeitsspeicher 
des Computers abgelegt werden. 
Sodann beginnt das Interpretieren. Das 
heißt nichts weniger, als daß der Inter- 
preter während des Programmlaufs 
Befehl für Befehl holen muß. Natürlich 
ist diese Vorgehensweise in höchstem 
Maße unökonomisch und langsam. 
Während ein Compiler die ersten drei 
der genannten vier Arbeiten nur genau 
einmalausführen muß, beschäftigen sie 
den Interpreter bei jeder Programmwie- 
derholung aufs neue. 

Zu Beginn des Computerzeitalters, 
als Rechenzeit noch sehr teuer war, 
wurden daher ausschließlich Compiler 
entwickelt. Interpreter konnten sich 
erst mit höheren Prozessorleistungen 
durchsetzen. Sie werden auch heute 


noch in Profikreisen wegen ihres 
gemächlichen Arbeitstempos ver- 
schmäht. 
Die Qualität 
® 
von Programmier- 
sprachen 


Um beurteilen zu können, welche 
Eigenschaften gute Programmierspra- 
chen charakterisieren, wenden wir uns 
zunächst der Frage zu, welche Anfor- 
derungen an ein hochwertiges Pro- 
gramm zu stellen sind. 

Die Forderung nach Fehlerfreiheit 
erscheint auf den ersten Blick banal. 
Die Erfahrung zeigt nämlich, daß 
100%ig korrekte Programmsysteme ab 
einem gewissen Umfang kaum noch 
möglich sind. Hat ein Programm eine 
gewisse Komplexität erreicht, istes fast 
unmöglich, seine Korrektheit zu bewei- 
sen, also Testdurchläufe zu finden, die 
tatsächlich alle Eventualitäten berück- 
sichtigen. Als Maß für die Korrektheit 
eines Programmes wird deshalb häufig 
von der Zuverlässigkeit gesprochen. 
Diese gibt die Wahrscheinlichkeit an, 
mit der ein Programm für eine Zahl von 
Anwendungsfällen in einer bestimmten 
Zeitspanne fehlerfrei arbeitet. Gerade 
die jüngste Vergangenheit hat hierfür im 
Bereich der Mikrocomputer einige 
negative Beispiele geliefert. So konn- 
ten Fehler in einigen Betriebssystemen 
oftmals erst nach der Auslieferung der 
neuen Geräte beseitigt werden. 

Verständlichkeit deckt sich mit Forde- 
rungen nach Lesbarkeit, Überschau- 
barkeit und Selbstdokumentation. Pro- 
gramme sollten sich, sobald sie eine 
gewisse Länge überschreiten, in funk- 
tionelle Einheiten gliedern. Andernfalls 
wird der Programmierer oft, noch wäh- 


8 


rend er an ein und demselben Pro- 
gramm arbeitet, an der selbst produ- 
zierten Unordnung scheitern. Man dif- 
ferenziert unter dem Aspekt der Ver- 
ständlichkeit zwischen der statischen 
und der dynamischen Programmstruk- 
tur. Die statische Strukturgestaltung 
dient dem Ziel, ein übersichtliches Lay- 
out des Programmtextes zu gestalten. 
Hiermit wird der menschlichen Wahr- 
nehmung Rechnung getragen, die sehr 
stark auf optischen Wahrnehmungen 
beruht. Ergänzend trägt die dynami- 
sche Strukturierung dazu bei, daß Pro- 
grammabläufe unmittelbar aus dem 
Quelltext ersichtlich werden. 

Ein Faktor der an diese Zusammen- 
hänge anknüpft, ist die Anderbarkeit 
von Programmen. Wartungsfreundlich- 
keit bedeutet einerseits, daß Pro- 
gramme leicht an modifizierte Aufga- 
benstellungen angepaßt werden kön- 
nen. Andererseits spielt die Portabilität 
eine Rolle, wenn ein Programm zum Bei- 
spiel in einer neuen Softwareumge- 
bung lauffähig gemacht werden soll. 

Universalität sollte es einem guten 
Programm ebenfalls ermöglichen, ähn- 
liche Aufgabenstellungen und Abwand- 
lungen zu lösen. 

Im Zusammenhang mit der Benutzer- 
freundlichkeit sollten Programme einen 
Dialog mit dem Benutzer ermöglichen 
und Eingabefehler abfangen, ohne fal- 
sche Ergebnisse oder gar Systemab- 
stürze zu liefern. 

Effizienz hat im Laufe der Entwick- 
lung stark an Bedeutung verloren. Zu 
Zeiten, da Speicherplatz noch Mangel- 
ware war, galten die kürzesten Pro- 
gramme als die besten. Das ging natür- 
lich zu Lasten der Übersichtlichkeit. 
Effizienzstreben wird heute daher nur 
noch mit Skepsis betrachtet. 

Die hier genannten Qualitätsmerk- 
male stehen offensichtlich in positiver 
und negativer Wechselwirkung zuein- 
ander. So geht Übersichtlichkeit mei- 
stens zu Lasten der Effizienz, verbes- 
sert dagegen aber die Anderbarkeit. 

Beginnen wir jetzt damit, die Anforde- 
rungen an eine ideale Programmier- 
sprache zu formulieren. Die Qualität 
einer Computersprache läßt sich 
danach beurteilen, inwieweit sie die 
Entwicklung von Programmen unter- 
stützt, die den uns bekannten Anforde- 
rungen entsprechen. Die folgenden 
skizzierten Merkmale müssen im engen 
Zusammenhang miteinander betrach- 
tet werden. 

Beginnen wir mit einem Punkt, der 
besonders den Einsteiger interessie- 
ren wird: 

Die Erlernbarkeit einer Sprache hängt 
wesentlich von deren Struktur und 
Umfang ab. Sie ist sehr viel einprägsa- 
mer, wenn die Zahl der Schlüsselwörter 
gering und das Sprachkonzept durch- 














gängig ist. Ebenso gewährleistet eine 
einfache Benutzung, wenn der Pro- 
grammierer sein Problem bequem mit 
einer breiten Palette von Ausdrucks- 
möglichkeiten lösen kann. 

Die Einheitlichkeit ist ein ebenso 
wichtiger wie unscharfer Begriff. Er soll 
im großen und ganzen bedeuten, daß 
für eine bestimmte Leistung möglichst 
nur genau ein Sprachmittel zur Verfü- 
gung steht. 


Kompaktheit steht mit Einfachheit in 
Einklang. Hierbei ist nicht von der 
»Würze der Kürze« die Rede, sondern 
vielmehr von der Mächtigkeit der 
Sprachkonzepte. Der Bauplan der Spra- 
che muß eine geringe Anzahl verschie- 
dener Grundkonzeptionen aufweisen, 
wie mathematische Operationen, Ein- 
und Ausgabe, Datenstrukturierung. 
Andererseits soll Kompaktheit ein 
gewisses Maß an Redundanz (= alles 
was man in der gleichen Sprache auf 
andere Weise auch darstellen kann) an 
der richtigen Stelle nicht verhindern. 
Dies fördert die Verständlichkeit und 
Zuverlässigkeit. Beispielsweise sind 
Datentypen im Grunde genommen 
redundant, doch wer möchte sich 
schon mit einer Sprache herumschla- 
gen, die ausschließlich den Datentyp 
»Zeichen« kennt? 

Die Sprache Basic wird von vielen als 
katastrophal eingestuft. Das hat einen 
guten Grund: Die Forderung nach Loka- 
lität wird von Basic so gut wie gar nicht 
unterstützt. Mit diesem Begriff ist 
gemeint, daß die Teile einer bearbeite- 
ten Aufgabe, die logisch zusammenge- 
hören, auch im Programmtext in physi- 
scher Nachbarschaft stehen sollten. 
Die berühmt-berüchtigten Sprungbe- 
fehle bewirken jedoch das genaue 
Gegenteil. 

Ein ganz anderes Kriterium ist die 
Sicherheit der Programmiersprache. 
Dazu zählt das Unterstützen der Fehler- 
freiheit eines Programmes durch 
Sprachelemente. »On Error Goto« ist 
ein solcher weitverbreiteter Befehl. Des 
weiteren sind Sprachelemente zu nen- 
nen, die die Testphase des Programms 
fördern. 

Der »Wildwuchs« der Implementie- 
rungen (= Anpassungen eines 
bestimmten Computers) bei Program- 
miersprachen, insbesondere bei den 
älteren, ist hinlänglich bekannt. Dia- 
lekte, Erweiterungen, aber auch Ein- 
schränkungen beeinträchtigen die Por- 
tabilität von Programmen im besonde- 
ren Maße. Mit der Standardisierung 

Fortsetzung auf Seite 10 
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befassen sich daher nationale und 
internationale Institute. Die wichtigsten 
sind das Deutsche Institut für Normung 
(DIN), das American National Standards 
Institute (ANSI) und die International 
Organization for Standardization (ISO). 
Die Benutzer akzeptieren allerdings die 
Standards unterschiedlich. So sind 
Standards von Basic nahezu unbe- 
kannt, während sie sich bei Sprachen 
wie Pascal oder Fortran zunehmend 
durchsetzen. 

Was für die Effizienz bei Programmen 
gesagt wurde, verkehrt sich bei den 
Sprachen in das genaue Gegenteil: Für 
den Übersetzer istsie von großer Wich- 
tigkeit. Zum einen sollte der Überset- 
zungsvorgang effizient sein, da bei der 
Fertigstellung eines Programmes die 
Zahl der Testläufe meistens sehr hoch 
ist. Der wichtigere Grund aber ist, daß 
das erzeugte Maschinenprogramm im 
Hinblick auf Rechenzeit und Speicher- 
bedarf optimiert werden sollte. Soge- 
nannte »Optimierende Übersetzer« 
sind teilweise in der Lage, das erzeugte 
Maschinenprogramm effizienter zu 
gestalten, als dies der Benutzer durch 
Programmiertricks erreichen kann. 


Von Zuse bis Ada 


Wir besitzen nun ein gutes Hand- 
werkszeug, um Programmiersprachen 
nach den wichtigsten Gesichtspunkten 
theoretisch zu beurteilen. Fassen wir 
zusammen: Die entscheidenden Anfor- 
derungen an eine Sprache heißen 
Strukturierungshilfen, Selbstdokumen- 
tation, Datenbeschreibung, Benutzer- 
freundlichkeit und Zuverlässigkeit. 
Doch was nützt all die graue Theorie, 
wenn wir die Sprachen nicht kennen? 
Im folgenden werden daher die wichtig- 
sten unter den bisher behandelten 
Aspekten und im Rahmen ihrer 
geschichtlichen Entwicklung vorge- 
stellt. 

Die Entstehung der Programmier- 
sprachen orientiert sich immer auch an 
den Voraussetzungen der Hardware. 
Dies gilt insbesondere auch für die 
Gründerijahre. 

Als geistiger Urvater der Rechen- 
maschinen mit Programmsteuerung 
darf der Engländer Charles Babbage 
gelten. Er begann 1833 mit der Kon- 
struktion digitaler Rechenautomaten. 
Er legte seinen Maschinen aus Zahnrä- 
dern, Kurbeln und Hebeln zwei wichtige 
Erfindungen zugrunde, nämlich die 
Lochkartensteuerung und das Prinzip 
eines dekadischen Zählrades mit auto- 
matischem Zehnerübertrag. Babbages 
Projekte waren aber wegen fertigungs- 
technischer Schwierigkeiten nur in der 
Theorie funktionsfähig. Erst Elektro- 
mechanik und später die Elektronik 
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machten die Rechenautomaten lang- 
sam zu Computern. 

Der erste Rechenautomat der Welt 
mit Programmsteuerung wurde 1941 
von Konrad Zuse in Betrieb genommen. 
Die Zuse Z3 war ein Relaisrechner, der 
bereits mit Dualzahlen arbeitete und zur 
Darstellung Gleitkommazahlen 
benutzte. Mit der Z3 waren neben den 
vier Grundrechenarten auch das Zie- 
hen von Quadratwurzeln und das 
Potenzieren möglich. Ein Nachbau des 
historischen Modells, das im Krieg zer- 
stört wurde, steht im Deutschen 
Museum in München. Der erste pro- 
grammierbare Rechner Amerikas ent- 
stand 1944. Er wurde von dem Mathe- 
matiker Howard H. Aiken mit Unterstüt- 
zung von IBM entwickelt und auf den 
Namen »Mark I« getauft. Er war jedoch 
ein Ungetüm von 16 m Länge und 35 
Tonnen Gewicht und zudem langsamer 
als die früher entwickelte Z3. 

Der Phase der Relaisrechner setzte 
der Einsatz von Elektronenröhren rasch 
ein Ende. Der bekannte ENIAC war die 
erste vollelektronische Rechenanlage 
der Welt und wurde 1945 in den USA 
fertiggestellt. Er erreichte gegenüber 
den Relaisrechnern bereits die 
2000fache Rechengeschwindigkeit. 


Während die Lochkarte nur eine 
starre Programmsteuerung ermög- 
lichte (keine Schleifen, keine logischen 
Entscheidungen) begann man bald, 
sich über die flexible Speicherprogram- 
mierung Gedanken zu machen. Als 
erstem gelang es dem Amerikaner John 
Neumann das genannte Problem auf 
einem Rechner zu verwirklichen. Der 
bereits 1944 von Neumann konzipierte 
Computer (EDVAC) erfüllte folgende 
Forderungen: Das Programm mußte, 
wie auch die zu verarbeitenden Daten, 
in der Maschine gespeichert werden. 
Außerdem benötigte man bedingte 
Befehle wie Vorwärts- und Rückwärts- 
verzweigungen. Jeden Befehl konnte 
zudem die Maschine selbst, wie jeden 
anderen Operanden ändern. 

Befehle bestanden aus einem 
Operations- und einem Adreßteil. Im 
Operationsteil wird eine Angabe 
gemacht was zu tun ist (zum Beispiel 
Ausführung einer Multiplikation), der 
Adreßteil zeigt an, wo sich die zu verar- 
beitenden Daten befinden und wohin 
sie anschließend zu übertragen sind. 
Hier ist also die Rede von den ersten 
Assemblersprachen, an deren Grund- 
prinzipien sich bis heute nicht geändert 
hat. 

Der Schritt von der starren Pro- 
grammsteuerung zum flexiblen Pro- 
gramm leitete die Wende vom Rechner 
zur Datenverarbeitung ein. Die Röhren- 
computer der ersten Generation 


erreichten mit dem SSEC (Selective 
Sequenz Electronic Calculator) Ende 





der vierziger Jahre einen Höhepunkt. 
Dieser besaß nicht weniger als 12000 
Elektronenröhren und etwa 21500 
Relais und wurde von 36 Lochstreifen- 
lesern gesteuert. Er führte die Berech- 
nungen der Mondbahn durch, die 20 
Jahre später im Apollo-Raumfahrtpro- 
gramm verwertet wurden. Mit dem Ein- 
zug der Transistortechnik und später 
mit den integrierten Schaltkreisen 
wuchsen fortan Rechnerleistung und 
Speicherkapazität immer schneller. 
Dies war die Voraussetzung für die 
Schaffung der höheren Programmier- 
sprachen. 


Die frühen Jahre 
„ Foriran 


Fortran ist die älteste der hier behan- 
delten Hochsprachen und setzt einen 
Meilenstein in der Geschichte. Anfang 
der fünfziger Jahre wuchs die Zahl der 
Computer rasch. An Serienfertigung 
war noch nicht zu denken und es war 
jedes Gerät ein Einzelstück mit eigener 
Hardware und eigenem Assembler. So 
wurde bald der Wunsch nach einer Pro- 
grammiersprache laut, die übertragbar 
und einfach zu programmieren sein 
sollte. 1952 wurde der Grundstein für 
Fortran gelegt, zu einer Zeit, da die Pro- 
grammierung nur wenigen Spezialisten 
und ausschließlich in Assembler mög- 
lich war. John W. Backus war einer der 
Federführenden, dem die Programmier- 
gemeinde Fortran zu verdanken hat. 

Der Hauptgrund für die Entwicklung 
war die Schwerfälligkeit der Assembler- 
programmierung. 75 Prozent der 
Kosten eines Rechenzentrums verur- 
sachte damals die Fehlersuche. Ver- 
ständlichkeit war daher ein wesentli- 
ches Entwurfsziel. Dadurch, daß die 
teuere Hardware optimal ausgenutzt 
werden mußte, waren die Rahmenbe- 
dingungen für Fortran bereits vorge- 
zeichnet. Vorrangig wurden Sprachele- 
mente implementiert, die der Speicher- 
und Laufzeiteffizienz nachkamen. 
Einige dieser Konzepte werden noch 
heute als sehr nachteilig angesehen - 
sind aber immer noch in Fortran enthal- 
ten. 

1955 erschien ein Programmier- 
handbuch, und zwei Jahre später 
wurde die erste Implementierung auf 
einer IBM 704 freigegeben. Damit 
stand Fortran erstmals einer breiten 
Zahl von Programmierern zur Verfü- 
gung. 

Der Name steht für FORmula TRANSs- 
lating system (Formelübersetzer). Und 
genau dort liegt auch der Anwendungs- 
schwerpunkt der Sprache. Rechneri- 
sche Probleme lassen sich in ihr leicht 
und natürlich ausdrücken. Damit wird 


























der Erlernbarkeit der Sprache Rech- 
nung getragen. Im ingenieurwissen- 


schaftlichen und mathematischen 
Bereich gilt Fortran auch heute noch als 
die wichtigste Programmiersprache. So 
bietet sie zum Beispielneben den allge- 
mein gebräuchlichen Zahlentypen Real 
(Fließkommazahlen) und Integer 
(Ganze Zahlen) auch noch den Typ 
»Double Precision« für Rechnungen mit 
höherer Genauigkeit sowie »Logical« für 
boolsche Operationen. Großrechner- 
Versionen beinhalten zudem noch den 
Typ »Complex«, der in der theoreti- 
schen Elektrotechnik eine sehr wich- 
tige Rolle spielt. 

Das Format dieser Sprache ist streng 
zeilenorientiert und erlaubt normaler- 
weise nur einen Befehl je Zeile. Das 
hängt damit zusammen, daß Fortran 
zunächst als lochkartenorientierte 
Sprache entstand. Grundsätzlich 
mußte man damals für jede neue Anwei- 
sung eine neue Lochkarte (beziehungs- 
weise Zeile) verwenden. Wie auch in 
Basic, das später aus Fortran entstand, 
mußte bei den ersten Versionen viel mit 
dem Goto-Befehl umhergesprungen 
werden. Neuere Versionen wie Fortran 
V und Fortran 77 bieten demgegenüber 
schon strukturierende Sprachelemen- 
te wie IF....THEN.... ELSE... ENDIF. 

Nachdem die 1958 geschaffene Ver- 
sion Fortran Il eine mäßige Verbreitung 
gefunden hatte, entstand 1962 das in 
weiten Kreisen akzeptierte Fortran IV. 
Den fortschreitenden Auswüchsen 
immer neuer Versionen wurde 1966 
Einhalt geboten, mit einer Version, die 
größtenteils mit Fortran IV identisch 
war. Schließlich überarbeitete das ANSI 
Fortran 66 im Jahr 1977 nochmals und 
beseitigte einige eklatante Mängel. 

Unter CP/M ist Fortran derzeit für fast 
alle Mikrocomputer mit Z8B0-Prozessor 
erhältlich, ebenso wie eine Reihe von 
Fortran-Implementationen für MS-DOS- 
Computer. 


Cobol - 
die Geschäftige 


Die Programmiersprache Cobol ent- 
stand 1959 auf Initiative des US- 
Verteidigungsministeriums. Zu dieser 
Zeit begann Portran sich gerade auszu- 
breiten. Was noch fehlte, war eine Spra- 
che für den kommerziellen und kauf- 
männischen Einsatz. So entwickelte 
man Cobol mit dem Ziel, große Daten- 
bestände verarbeiten zu können und 
die Ein/-Ausgabe zu unterstützen. 
Insbesondere die ersten Fortran- 
Versionen waren hierfür ungeeignet. 
Ende der fünfziger Jahre wurde die 
Codasyl-Entwicklungsgruppe aus Ver- 
tretern der Computerindustrie und der 
amerikanischen Regierung gegründet. 











Schon 1960 stellte diese Gruppe die 
erste Version mit der Bezeichnung 
Cobol-60 vor. Sie war wesentlich an die 
weniger bekannte Sprache Comtran 
(COMmercial TRANslator) angelehnt. 
Aufgrund der hastigen Entwicklung von 
Cobol innerhalb eines halben Jahres 
ergaben sich viele Ungereimtheiten, 
die sich teilweise durch alle Neuent- 
würfe hindurchschleppten und auch 
heute noch nicht ganz beseitigt sind. 
Cobol-61 war dann die Grundlage für 
alle späteren Versionen. Sie war zu 
Cobol-650 nicht kompatibel. 1965 
wurde als wesentliche Neuerung die 
Unterstützung von Massenspeichern 
und Tabellen mit eingebracht. 

Die Sprachelemente von Cobol sind 
je nach ihrer Funktion in Module zusam- 
mengefaßt. Das ANSI entwickelte bis 
1974 einen zwölf Module umfassen- 
den Standard, namentlich Cobol 
ANS-74. Er wurde 1980 nochmals ver- 
bessert. Den jeweils neuesten Stand 
veröffentlicht das CODASYL-Komitee 
im Abstand von drei Jahren. Der Stan- 
dard für die Bundesrepublik Deutsch- 
land ist in der DIN-Norm 66028 nach- 
zulesen. 

Die kurze Darstellung der Entwick- 
lungsgeschichte läßt erkennen, daß 
Cobol ebenfalls eine alte Sprache ist. 
Cobol-Programme müssen aus heuti- 
ger Sicht als mangelhaft angesehen 
werden. 

Ursprünglich verfolgte man wie bei 
keiner anderen Sprache das Ziel der 
Lesbarkeit des Programmtextes. Die 
Sprache sollte dann auch leicht erlern- 
bar sein. Der Programmtext erinnert 
stark an (englische) Prosa. Cobol- 
Programme simulieren nämlich die 
natürliche englische Sprache. So wird 
zum Beispiel jeder Befehl mit einem 
Verb eingeleitet. Die Grundrechenarten 
stehen nicht als Symbole, sondern als 
Befehlswörter (add, divide) zur Verfü- 
gung. Ebenso werden logische Opera- 
toren ausgeschrieben. Ein Beispiel: 
Wenn die Variable A größer ist als Null, 
soll der Variablen B die Summe der 
Variablen C und A zugeordnet werden. 
In Basic würde man das so formulieren: 
IF A>O THEN B= C+A 
Daraus wird in Cobol: 

IF A GREATER THAN ZERO ADD C TO 
A GIVING B. 

Daß so aus komplizierteren mathema- 
tischen Formeln monströse Gebilde 
werden, leuchtet ein. Dahöhere mathe- 
matische Funktionen in Cobol ganz feh- 
len, ist die Sprache für wissenschaftli- 
che Anwendungen völlig ungeeignet. 

Derartige Beispiele verdeutlichen, 
daß das Entwicklungsziel von Cobol 
nicht sinnvoll erreicht wurde. Dennoch 
ist Cobol auch heute noch die weltweit 
am stärksten verbreitete Programmier- 
sprache. Ganze Rechenzentren arbei- 








ten mit ihr. Die hohen Investitionen und 
die Gewöhnung des Personals an diese 
Sprache wird auch in Zukunft für ihrer 
Erhalt sorgen. Zudem erreicht auch 
noch keine neuere Programmierspra- 
che die Cobol-Domäne Datenorganisa- 
tion. 

Wer einen Mikrocomputer mit den 
Betriebssystemen CP/M oder MS-DOS 
(PC-DOS) besitzt, kann in Cobol ein- 
steigen. 


PL/I1 = 
von allem etwas 


Fortran und Cobol sind charakteri- 
stisch für die strikte Trennung in kom- 
merzielle und technisch-wissenschaft- 
liche Anwendungen zu Beginn der 
sechziger Jahre. Daneben wurden 
Computer nur noch in Spezialgebieten 
eingesetzt. Im Laufe der Zeit traten aber 
die Merkmale der naturwissenschaft- 
lich-technischen Bereiche in den 
betriebswirtschaftlichen Anwendun- 
gen immer mehr hervor und umgekehrt. 
So waren die kommerziellen Anwender 
mehr und mehr auf Methoden aus der 
Statistik, Operations Research und 
Ökonomie angewiesen. Mathematiker 
und Ingenieure stellten zunehmend 
höhere Ansprüche an Datenverwaltung 
und an die Ein-/Ausgabeunterstützung. 

Als logische Konsequenz kamen die 
Anbieter den neuen Bedürfnissen mit 
einer universellen Hard- und Software- 
konfiguration nach. Hardwareseitig ent- 
wickelte IBM die Rechnerfamilie /360 
mit dem Betriebssystem OS/360. 
Diese Anlagen zählten sich bereits zur 
dritten Computergeneration (das heißt, 
die Schaltkreise waren in Hybridtechnik 
ausgelegt, einer unmittelbaren Vorstufe 
der integrierten Schaltkreise). 

Bei den Überlegungen zu einer 
neuen Sprache war man zunächst von 
Fortran ausgegangen. Die Organisation 
SHARE (Society for Help to Avert 
Redundant Effort), eine Vereinigung 
wissenschaftlicher IBM-Anwender, 
einigte sich mit der Firma IBM auf die 
Gründung eines Sprachkomitees. 
Zunächst war die Rede von Fortran Vi. 
Man gelangte aber schon nach kurzer 
Zeit zu der Erkenntnis, daß die 
gewünschten Verbesserungen eine 
Kompatibilität mit Fortran unmöglich 
machten. Die Anlehnung an Fortran 
hätte außerdem die große Gruppe der 
kommerziellen Verwender abge- 
schreckt. So entschied man sich für die 
Entwicklung einer gänzlich neuen Spra- 
che. Deren wichtigsten Entwurfsprinzi- 
pien waren: allgemeine Einsetzbarkeit 
und weitgehende Ausdrucksfreiheit. 
Der Sprachaufbau sollte modular sein 
und Testhilfen sowie Möglichkeiten zur 
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Fehlerbehandlung bieten. Ein großen- 
teils gegenläufiges Ziel bestand in den 
Forderungen, den vollen Zugriff auf 
Hardware- und Betriebssystemleistun- 
gen bei gleichzeitiger Maschinenunab- 
hängigkeit zu gewähren. 

Nach vielen drastischen Überarbei- 
tungen hatte sich der Sprachumfangbis 
1965 stabilisiert. Nachdem die Abkür- 
zung für NPL (New Programming Lan- 
guage) bereits vergeben war, einigte 
man sich schließlich auf PL/I (Program- 
ming Language one). Im August 1966 
wurde dann der erste Compiler für eine 
IBM /360 freigegeben. Schließlich ver- 
abschiedeten das ANSI und die ECMA, 
ein europäisches Standardisierungsko- 
mitee, einen vorläufig endgültigen Stan- 
dard. Die Verbreitung von PL/1 nahm 
zunächst rasch zu, wurde aber später 
den gesetzten Erwartungen nicht 
gerecht. 

Kommen wir nun zu der Sprache, die 
jeder, und wenn nur vom Hörensagen, 
kennt. Sie kann sich rein zahlenmäßig 
im Mikrocomputerbereich als die am 

In den Sprachumfang von PL/1 wur- 
den viele Konzepte aus Fortran, Cobol, 
Algol und Jovial übernommen (letztere 
werden hier wegen ihrer geringen Ver- 
breitung nicht behandelt). Leider 
gelang es nicht, sich bei der Auswahl 
nur auf die guten Eigenschaften der 
Vorgänger zu beschränken. Zudem ist 
der Sprachumfang riesig. Eine fast 
unüberschaubare Anzahl von Schlüs- 
selwörtern zwingt zu Maßnahmen, 
durch die der Programmierer auch mit 
Teilmengen der Sprache sinnvoll arbei- 
ten kann. Daher ergeben sich für die 
PL/1 -Syntax sehr freizügige Vorschrif- 
ten. Einerseits existiert keine Zeilen- 
struktur, Zwischenräume, Einrücken 
und Kommentare dürfen fast beliebig 
verstreut werden. Da passiert es dann 
auch nicht selten, daß beim Program- 
mieren das Format aus allen Fugen 
gerät. Außerdem sind die Schlüssel- 
wörter nicht reserviert, wohl wegen 
ihrer großen Anzahl. Gebilde wie 
IF ELSE=THEN THEN IF=ELSE; ELSE 
IF=THEN 
tragen wohl zur Verwirrung jedes hoff- 
nungsvollen Programmierers bei. Ein 
wesentlich angenehmerer Fortschritt 
ist andererseits das ausgeprägte 
Blockkonzept der Sprache. PL/1 orien- 
tiert sich wesentlich an Prozeduren. All- 
gemein kann gesagt werden, daß die 
Einarbeitung in PL/1 viel Zeit braucht. 
Wer damit trotz aller Warnungen begin- 
nen will, kann dies unter CP/M oder auf 
PC-Kompatiblen tun. 
weitesten verbreitete Sprache der Welt 
rühmen. Sie ist schon fast als Teil der 
Allgemeinbildung zu betrachten. Ganz 
anders als bei den »großen professio- 
nellen«e wurde die Entwicklung von 
Basic (Beginners All-purpose Symbolic 
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Instruction Code) nicht durch eine 
Industrie- oder Militärlobby getragen. 
Die Ausrichtung der Sprache kommt 
denn auch in ihrem Namen zum Aus- 
druck: Sie wendet sich an den Anfänger 
und soll für jeden Zweck geeignet sein. 


Basis für Einsteiger 
_ Tee > 


Ihre geschichtliche Entwicklung 
erklärt viele Aspekte des Sprachkon- 
zepts. Basic wurde von Thomas Kurtz 
und John Kemeny von 1956 bis 1971 in 
den USA am Dartmouth College ent- 
wickelt. Ziel war es, Studenten, die sich 
nicht ausschließlich mit Ingenieurwis- 
senschaften beschäftigten, das Pro- 
grammieren zu erleichtern. So schlu- 
gen sich denn auch die Erfordernisse 
der allgemeinen Ausbildung einer Uni- 
versität in der Sprache nieder: Bei der 
angesprochenen Zielgruppe erschien 
ein eigener Programmierkurs nicht 
erforderlich. Vielmehr sollte das Pro- 
grammieren im Rahmen der Mathema- 
tikvorlesungen gelehrt werden. Hieraus 
erklärt sich auch die Ausrichtung von 
Basic auf mathematische Probleme. Die 
neue Sprache sollte leicht erlernbar 
und leicht zu benutzen sein. Dies war 
nach Meinung von Kurtz und Kemeny 
bei Fortran und Algol nicht der Fall. So 
erklärt sich auch, daß bei Basic nicht, 
wie bei PL/1, auf Bewährtes zurückge- 
griffen wurde. 

Im Gegensatz zu den bisher behan- 
delten Sprachen wurde Basic als voll- 
ständiges Programmiersystem konzi- 
piert. Der Benutzer kann im Dialog mit 
Basic arbeiten, ohne die Basic- 


Umgebung zu verlassen. Hierzu exi- 
stiert der »Direkt-Modus«, der das Edi- 
tieren, Ausführen und Speichern von 
Programmen unterstützt. 


Basic ist 
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zudem eine typische Interpreter- 
Sprache, für die allerdings auch ver- 
schiedene Compiler erhältlich sind. 

Mit der Entwicklung des ersten Com- 
pilers begannen Kurtz, Kemny und eine 
Gruppe Studenten 1963. Im Mai 1964 
wurde dann das erste Basic-Programm 
ausgeführt; die erste Version kannte 
nur 14 Instruktionen. Diese Minimalaus- 
stattung wurde am Dartmouth College 
bis 1971 in insgesamt sechs Versionen 
schrittweise vervollständigt. Seither 
nahmen die Autoren keine Veränderun- 
gen mehr vor. Das bedeutet natürlich 
nicht, daß Basic jemals eine wirkliche 
Standardisierung erfahren hätte. Im 
Gegenteil: Durch das Fehlen einer 
Interessenvertretung professioneller 
Anwender und durch die enorme Ver- 
breitung der Sprache wucherten die 
Basic-Versionen fast uferlos. Für 
nahezu jeden Mini- und Mikrocomputer 
und selbst auf Taschenrechnern ist 
Basic erhältlich. Da von Herstellerseite 
nach dem Motto verfahren wurde 
»jedem Topf ein anderer Deckele ist 
Kompatibilität ein Fremdwort. Auch die 
Bemühungen der ECMA und ANSI in 
den letzten Jahren waren kaum von 
Erfolg gekrönt. Lediglich ein »Minimal 
Basic« wurde kompromißbereit zum 
Standard deklariert. Diese Teilmenge ist 
der ersten Sprachbeschreibung von 
1964 sehr ähnlich. Lediglich im Heim- 
computerbereich gelang es mit den 
MSX-Computern erstmals, einen wei- 
testgehenden Basic-Standard für 
Geräte verschiedener Hersteller zu 
schaffen. Haar in der Suppe war aber, 
daß die MSX-Computer wenig Verbrei- 
tung fanden. 

Ein Basic-Programm besteht aus 
nummerierten Zeilen in aufsteigender 
Folge. Dabei sind die Zeilennummern 
aus einem festgelegten Intervall zu 
wählen. Jeder Zeilennummer folgen 
eine oder mehrere Instruktionen. Die 





Zeilennummern legen die logische Rei- 
henfolge der auszuführenden Anwei- 
sungen fest. Darüber hinaus dienen sie 
als Orientierung für die Sprungbefehle. 
Beim Editieren des Programmtextes 
lokalisieren sie die Zeilen. Basic ist 
noch stärker zeilenorientiert als Fortran. 
Das geht so weit, daß eine Basic- 
Anwendung durch die Zeilenlänge 
begrenzt wird. In einigen Basic- 
Versionen sind Fortsetzungszeilen mit 
dem Zeichen »&« möglich. 

Als Datentypen sind in Basic nur 
numerische Daten und Zeichenketten 
vorgesehen. Eine Unterscheidung in 
ganzzahlig und Fließkomma, wie es von 
anderen Sprachen her bekannt war, 
wurde der Einfachheit wegen bewußt 
vermieden, ist aber dennoch auf vielen 
Computern implementiert. Für Daten- 
strukturen stehen nur ein- und mehrdi- 
mensionale Felder (Arrays) zur Verfü- 
gung. Deren Elemente können je nach 
Version entweder nur einzeln manipu- 
liert werden, oder es stehen spezielle 
Matrizenoperationen bereit. 

Die Sprunganweisungen Sind, wie 
bereits erwähnt, vielen ein Greuel. Zwar 
bieten moderne Basic-Versionen viele 
Befehle, die das strukturierte Program- 
mieren unterstützen, sie erfordern aber 
genaue Vorausplanung eines Pro- 
gramms. Im Regelfall endet bei länge- 
ren Programmen ein »Drauflosprogram- 
mieren« im Chaos aus GOTO, GOSUB 
und FOR...NEXT. 

Des weiteren beinhaltet Basic, je 
nach Ausstattung und Computer, 
Befehle für die Ein-/Ausgabe, mathema- 
tische Funktionen, Grafik, Tonerzeu- 
gung und den Zugriff auf das Betriebs- 
system. Hierauf im einzelnen einzuge- 
hen würde zu weit führen. Es sei daher 
auf entsprechende Fachliteratur ver- 
wiesen. 


Pascal - strukturiert 
und einfach 


Ein moderner Klassiker unter den 
Programmiersprachen ist Pascal. Der 
Name ist ausnahmsweise keine Abkür- 
zung. Er wurde zu Ehren des französi- 
schen Mathematikers Blaise Pascal 
gewählt, der 1642 im Alter von 19 eine 
der ersten funktionsfähigen Rechen- 
maschinen konstruierte. 

Die Wurzeln dieser Programmierspra- 
che reichen in das Ende der sechziger 
Jahre zurück. Zu jener Zeit stellten 
Nikolaus Wirth und C.A.R. Hoare Über- 
legungen an, auf der Basis von Algol 60 
eine Nachfolgesprache zu entwickeln. 
Algol 60 bot schon damals ein zufrie- 
denstellendes Sprachkonzept. Das gilt 
besonders für die Strukturierung des 
Programmablaufs und des Programm- 
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textes. Wegen dieser Vorteile wurde 
Algol zur Grundlage einer ganzen 
Klasse von Programmiersprachen, die 
bei Pascal beginnt und vorläufig von 
Ada gekrönt wird. Eine der Schwächen 
ist dagegen die unzureichende Daten- 
strukturierung. Ebenso wie Basic und 
Fortran kennt Algol 60 nur das Array. 
Die später folgende Version Algol 68 
war ähnlich wie PL/1 zu umfangreich 
und unhandlich. Mit der Entwicklung 
von Pascal verfolgte man das entge- 
gengesetzte Ziel. Der Schweizer Pro- 
fessor Nikolaus Wirth formulierte bei 
der Entwicklung der Sprache an der 
ETH Zürich die folgenden Schwer- 
punkte: Pascal sollte nur grundlegende 
Sprachkonzepte enthalten. Diese soll- 
ten natürlich definiert sein und das 
Erlernen des strukturierten Program- 
mierens als eine systematische Diszi- 
plin unterstützen. Des weiteren sollte 
sie sich effizient auf allen Computern 
implementieren lassen. 

Die erste vorläufige Version entstand 
1968. Die vollständige Beschreibung 
eines Compilers und der Sprache 
selbst war 1971 fertig. Das 1974 
erschienene Benutzerhandbuch »Pas- 
cal User Manual and Report« enthält 
eine Sprachdefinition, die heute als 
Wirth-Standard bezeichnet wird. Die 
verbreiteten Versionen Turbo- und 
UCSD-Pascal enthalten demgegen- 
über noch einige Erweiterungen, die 
vor allem Grafik und Zeichen-Strings 
betreffen. 

Durch die leichte Erweiterbarkeit von 
Pascal entstanden bald viele Dialekte. 
Deshalb und wegen der weltweiten 
Anerkennung der Sprache nahmen 
sich verschiedene Normeninstitute die- 
sem Problem an. Die ISO setzte 
schließlich 1980 einen Standard fest, 
der in der DIN-Norm 662586 nachzule- 
sen ist. Strukturierung bedeutet nicht 
nur, daß das Programm übersichtlich 
ist, sondern daß sich der Vorgang des 
Programmierens in verschiedene Aktio- 
nen aufteilt. Bevor man sich an den 
Computer setzt, sollte man das Pro- 
blem genau analysieren und in Aufga- 
benpakete zerlegen. Dann ist für jedes 
Paket ein Algorithmus zu bestimmen 
und in Pascal zu formulieren. Erst dann 
beginnt die Tipparbeit. Pascal- 
Programme entstehen also auf dem 
Papier und weniger am Bildschirm. 
Diese Vorgehensweise erreicht eine 
niedrige Fehlerquote und damit sinkt 
auch die Zahl der UÜbersetzerdurch- 
läufe, was bei einer typischen Compiler- 
sprache wie Pascal sehr angenehm ist. 

Ein Pascal-Programm ist klar geglie- 
dert in einen Vereinbarungs- und einen 
Anweisungsteil. Vereinbart werden 


zuerst alle Variablen, Konstanten und 
deren Datentypen. Im Anweisungsteil 
werden die Aufgabenpakete in Proce- 





dures formuliert. Jede Procedure ent- 
hält einen eigenen Namen. Das eigentli- 
che Hauptprogramm besteht dann nur 
noch aus dem Aufrufen der Procedures 
und steht im Programmtext ganz am 
Ende. 

Daß der GOTO-Befehl in Pascal ent- 
halten ist, verwundert eigentlich. Ange- 
sichts der Strukturbefehle IF....THEN- 
CASE kann man gut auf ihn verzichten. 
Der Vorrat an Datentypen eröffnet 
gegenüber Basic ganz neue Möglich- 
keiten. Man unterscheidet hier zwi- 
schen einfachen Typen, strukturierten 
Typen und Zeigertypen. Integer, Char, 
Boolean und Real zählen zu den einfa- 
chen Typen. Boolean bezeichnet eine 
Variable, der nur die Werte False oder 
True zugeordnet werden können. Array, 
Record, Set und File stehen als struktu- 
rierte Typen zur Verfügung. Set 
bezeichnet eine Menge. Auf diesen Typ 
sind die üblichen Mengenoperationen 
Vereinigung, Durchschnitt, Differenz, 
Untermenge und Elementüberprüfun- 
gen anwendbar. Record ermöglicht 
Verbundvariablen. Es lassen sich so 
unterschiedliche Variablentypen zu 
einer Variable zusammenfassen. 
Record war ursprünglich für kommer- 
zielle Anwendungen gedacht (Tabellen- 
darstellung). Demgegenüber werden 
mit dem Typ File nur Variablen eines ein- 
zigen Typs verkettet. Der Typ Zeiger 
(pointer) schließlich ermöglicht verket- 
tete Listen und deren bequeme Mani- 
pulation, sowie Baumstrukturen. Wem 
das noch nicht reicht, der kann sich in 
Pascal weitere einfache Datentypen 
selbst definieren. 

Pascal ist vielseitig und erzieht zum 
strukturierten Denken. Seine Verarbei- 
tung, vor allem im akademischen Be- 
reich, ist folgerichtig sehr hoch. So lie- 
gen denn auch für fast alle rechnereige- 
nen Betriebssysteme wie auch für 
CP/M und MS-DOS Pascal-Versionen 
vor. 


Forth — die etwas 
andere Sprache 


Forth entstand Anfang der siebziger 
Jahre. Charles H. Moore entwickelte 
die Sprache ursprünglich zur Steue- 
rung von Radioteleskopen. Er arbeitete 
dazu mit einem IBM-1130, einem Com- 
puter der dritten Generation. Das End- 
produkt war aber so mächtig, daß es 
Moores Computer als einen der vierten 
Generation erscheinen ließ. Er wollte 
der neuen Sprache daher den Namen 
Fourth geben. Namen mit mehr als fünf 
Buchstaben waren auf dem IBM jedoch 
nicht erlaubt. So wurde das »u« ein 
Opfer dieser technischen Unzuläng- 
lichkeit. 
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Forth ist interaktiv wie Basic. Das 
heißt, es existiert sowohl ein Interpreter 
als auch ein Compiler. Programme kön- 
nen somit erst im Direktmodus »häpp- 
chenweise« getestet und anschließend 
compiliert werden. Des weiteren ver- 
bindet Forth Merkmale der Assembler- 
sprachen mit denen der Hochspra- 
chen. 

Die Strukturierung in Forth entsteht 
durch die Definition immer neuer Worte. 
Der ohnehin schon große Sprachum- 
fang nimmt beim Programmieren stän- 
dig zu. Beliebige Befehle können zu 
einem neuen Befehl zusammengefaßt 
werden, der dann sofort wieder in wei- 
tere Befehle mit eingebaut werden 
kann. Schließlich steht für das gesamte 
Programm ein einziger Befehl am Ende 
dieser Kette. 

Selbstverständlich stellt Forth auch 
die Kontrollstrukturen zur Verfügung, 
die bereits für Pascal angesprochen 
wurden, wie IF....ELSE....ENDIF, 
BEGIN... UNTIL, BEGIN..WHILE etc. 
Das berüchtigte GOTO fehlt hier ganz, 
ergäbe auch bei diesem Sprachkon- 
zept keinen Sinn. 

Grundlegendes Prinzip von Forth ist 
das Operieren mit dem Stapelspeicher 
(Stack). Dieser funktioniert nach dem 
LIFO-Prinzip (Last In, First Out). Alle 
Werte, die auf dem Stapel abgelegt wur- 
den, lassen sich nur in umgekehrter 
Reihenfolge wieder herunternehmen. 
Für einen problemlosen Ablauf dieses 
Systems sorgen eine ganze Reihe von 
Stack-Befehlen, mit denen sich Werte 
verschieben und vertauschen lassen. 
Sämtliche mathematischen Operatio- 
nen laufen in Forth über den Stack. Man 
bedient sich hierbei der Umgekehrten 
Polnischen Notation (UPN), die recht 
gewöhnungsbedürftig und Benutzern 
von HP-Taschenrechnern bekannt ist. 

Forth ist ein sehr offenes System und 
durch seine Assemblernähe universell 
einsetzbar. Fehlende Funktionen kön- 
nen jederzeit selbst programmiert wer- 
den. Zudem ist Forth sehr schnell. Das 
Erlernen der Sprache und die Über- 
sichtlichkeit der Programme können als 
noch ausreichend eingestuft werden. 
Auf jeden Fall fasziniert Forth jeden, 
der sich länger damit beschäftigt. Für 
alle verbreiteten Mikrocomputer exi- 
stieren mittlerweile eine oder mehrere 
Versionen. 


Logo — kinderleicht 


Seymour Papert, der als geistiger 
Vater der Sprache Logo gilt, arbeitete 
12 Jahre an der Verwirklichung dieser 
»Erziehungsphilosophie«. Er leitete ein 
eigens gegründetes Entwicklungsteam 
aus Programmierern und Lehrkräften 
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am MIT (Massachusetts Institute of 
Technology) in den USA. Man arbeitete 
damals ausschließlich auf den größten 
vorhandenen Datenverarbeitungsanla- 
gen. Dadurch fand ein wesentliches 
Konzept der KlI-Sprache Lisp in Logo 
Anwendung: die Listenprogrammie- 
rung. Listen sind einfach zu definieren 
und können per Befehl manipuliert, 
kombiniert und verglichen werden. Eine 
leicht programmierbare Dateiverwal- 
tung ist nur ein Anwendungsbeispiel 
dieser Technik. 

Bekannt wurde Logo vor allem durch 
die Schildkröte, ein kleines Zeichen- 
symbol der »Turtle-Graphics«. Mit ihr las- 
sen sich auf einfache Weise die tollsten 
Grafiken zaubern. Die Schildkröte krab- 
belt über den Bildschirm und hinterläßt 
dabei eine sichtbare Spur. 


Eine Schildkröte 


machte 
Logo bekannt 


Gesteuert wird mit einfachen Befeh- 
len wie FORWARD, BACK, LEFTTURN, 
RIGHTTURN. Zusätzlich muß noch die 
Länge der zurückgelegten Strecke und 
des Drehwinkels angegeben werden. 
Ebenso ist eine Standortabfrage der 
Turtle möglich. Logo-Programme 
ähneln in der Struktur dem Baukasten- 
prinzip der Forth-Programme. Mit Hilfe 
des Interpreters lassen sich einzelne 
Bausteine erproben und später zum 
eigentlichen Programm zusammenset- 
zen. Der Komfort ist dabei in Logo 
ungleich höher als in allen bisher 
genannten Sprachen. So kann der 
Anwender vorerst Begriffe wie Archi- 
vierung, Dateien und andere spezielle 
Funktionen der Datenverarbeitung links 
liegen lassen. Diese Vorteile gehen 
aber leider zu Lasten des Speicherplat- 
zes. 

Eng mit dem Prozedurkonzept ver- 
bunden ist die Rekursivität von Logo. 
Prozeduren sindin der Lage, sich selbst 
aufzurufen. Auf diese Weise lassen sich 
schnell reizvolle grafische Gebilde 
erzeugen und gewisse mathematische 
Zusammenhänge einfach ausdrücken. 
Rekursive Strukturen sind in Basic gar 
nicht und in vielen anderen Sprachen 
nur mit hohem Aufwand zu verwirkli- 
chen. 

In die Logo-Philosophie wurden 
Erziehungstheorien des Schweizer 
Philosophen Jean Piaget eingebracht. 
Dieser hatte zuvor das Lernverhalten 
von Kindern analysiert. Tatsächlich 
wirkt Logo besser auf die Denkweise 
eines Schülers als Basic oder Pascal. 
Bemängelt werden muß bei Logo haupt- 
sächlich die geringe Verarbeitungsge- 
schwindigkeit der Programme. Sie fällt 





aber bei einem Lernsystem nicht so 
stark ins Gewicht. 

Wegen des hohen Speicherbedarfs 
sind Logo-Interpreter auf Mikrocompu- 
tern nur als Ausschnitt des Gesamtsy- 
stems erhältlich. Dies wird sich mit 
wachsendem Speicherstandard jedoch 
bald ändern. 


Comal — 
ee 7 Er ee 


Im Jahre 1973 ging Comal aus den 
Sprachen Basic und Pascal als ein 
neuer Ableger hervor. Später kamen in 
Comal noch Elemente von Logo hinzu, 
so zum Beispiel die Schildkrötengrafik. 
Zudem sind in Comal der Compiler und 
der Interpreter nicht getrennt vorhan- 
den, sondern es wurden deren beste 
Elemente in einer Zwischenstufe 
zusammengefaßt. Ein Comal-Pro- 
gramm besteht aus drei Schritten. Im 
ersten wird schon bei der Programm- 
eingabe die Syntax überprüft. Dieser 
Syntaxchecker ist selbst für den ohne- 
hin schon eingabefreundlichen Inter- 
preter ungewöhnlich komfortabel. Die 
Comal-Schlüsselworte werden sofort in 
sogenannte »loken« übersetzt, das sind 
Abkürzungen, die nur ein Byte bean- 
spruchen. Dieses Prinzip verwenden 
übrigens alle Interpreter. Der zweite 
Schritt beginnt nach dem Programm- 
start. In einer Art Compilerdurchlauf 
wird der Programmtext nach Variablen, 
Prozeduren, Funktionen und Sprüngen 
durchsucht. Die Ergebnisse dieser 
Analyse werden dann in einer geson- 
derten Liste zusammengefaßt. Man 
kann diesen Vorgang auch als eine Art 
automatische Deklaration ansehen. Im 
dritten Schritt, dem Programmlauf 
selbst, wird auf diese Liste ständig 
direkt zugegriffen. So ergeben sich 
gegenüber Basic, wo der Interpreter oft 
den ganzen Programmtext absucht, 
enorme Geschwindigkeitsvorteile. 

Die Comal-Syntax lehnt sich stark an 
die von Basic an. Im Direktmodus wur- 
den die meisten Befehle Wort für Wort 
übernommen. Das gleiche gilt für einige 
Befehle des Programm-Modus. Einige 
Comal-Versionen akzeptieren neben 
den eigenen Schlüsselworten sogar 
noch gleichbedeutende Basic-Befehle. 
Wer aus Basic zu Comal aufsteigt, ist so 
zwar vor Irrtümern einigermaßen sicher, 
jedoch wird dem Prinzip der Eindeutig- 
keit nicht gerade Rechnung getragen. 

Von Pascal wurde die Strukturiertheit 
übernommen, dessen strenge Syntax- 
vorschriften aber erfreulicherweise ver- 
mieden. Die typischen Kontrollstruktu- 
ren, die schon bei Pascal und Basic 
beschrieben wurden, sind ausnahms- 
los vorhanden. Die Lesbarkeit des Pro- 
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grammtextes wird zudem dadurch 
unterstützt, daß Comal beim Listen eine 
optische Gliederung vornimmt. 

Comal wird für fast alle gängigen 
Mikrocomputer angeboten. Erfreuli- 
cherweise stehen auch, ähnlich wie bei 
Forth, zahlreiche Public-Domain- 
Versionen zur Verfügung. Diese unter- 
scheiden sich von kommerziellen 
Sprachangeboten lediglich im Umfang. 
Es wird erwartet, daß Comal in Zukunft 
eine starke Verbreitung erfährt. Jüng- 
ster Anhaltspunkt für diese These ist 
der Beschluß der Kultusministerien, 
Pascal im Informatikunterricht allmäh- 
lich durch Comal zu ersetzen. 


C — die Zukunft? 


»C« - für diesen einen Buchstaben 
lassen viele Programmierer Pascal, 
Forth oder Fortran links liegen. Viele 
betrachten C als die Programmierspra- 
che schlechthin. Tatsächlich bietet C 
viele bestechende Vorteile, die sich von 
denen der anderen Hochsprachen 
unterscheiden. In C wurden bekannte 
Betriebssysteme wie Unix und GEM 
geschrieben. 

Die Entwicklung von C reicht bis an 
den Anfang der siebziger Jahre zurück. 
Die Namensgebung war ebenso kurios 
wie einfallslos. 1970 begann die Firma 
Digital Equipments mit der Entwicklung 
von Spezialsprachen, die die Program- 
mierung von Minicomputern unterstüt- 
zen sollten. Diese wurden einfach nach 
dem Alphabet benannt. B war also eine 
Weiterentwicklung von A und diente 
1971 dazu, Unix auf verschiedene 
Rechner zu übertragen. Bald darauf 
erkannten Dennis Ritchie und Ken 
Thompson, die damals bei Bell Labora- 
tories beschäftigt waren, die Leistungs- 
fähigkeit von B. Sie verbesserten diese 
Sprache bis 1973 entscheidend. Wie 
das Endprodukt heißt, wissen wir 
bereits. Unix wurde wenig später eben- 
falls auf C umgeschrieben. 

Wenn ganze Betriebssysteme in C 
gehalten sind, läßt sich die ungeheuere 
Effizienz dieser Sprache schon erah- 
nen. Das C-Compilat geht mit dem Spei- 
cher äußerst sparsam um, und ist 
zudem um den Faktor 50 schneller als 
vergleichbare Basic-Programme. 

Der eigentliche Befehlsvorrat von C 
ist denkbar klein. Er umfaßt nur 13 
Instruktionen. Bei der Erzeugung eines 
C-Programms wird der Quelltext zuerst 
mit dem mitgelieferten Editor oder einer 
Textverarbeitung geschrieben. Dieser 
dient dann als Eingabedatei für den 
Compiler. Bis hierher besteht also kein 
Unterschied zur Vorgehensweise mit 
den meisten anderen Compilerspra- 
chen. Der Compiler überprüft den Text 
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und übersetzt diesen mit den ihm 
bekannten Befehlen in eine Zwischen- 
datei und legt diese auf einen externen 
Speicher (zum Beispiel Diskette) ab. 
Anschließend beginnt das sogenannte 
»Linking«. Der Linker ordnet aus einer 
externen Bibliothek die noch fehlenden 
Befehle entsprechendem Assembler- 
code zu. So entsteht schließlich das 
lauffähige Programm, das fast so kom- 
pakt ist, als wäre es direkt in Maschi- 
nensprache geschrieben. Das Compi- 
lieren benötigt jedoch wegen des Zwi- 
schencodes je nach Geschwindigkeit 
des Speichermediums mehr Zeit, als 
die unmittelbare Übersetzung in 
Maschinensprache. 

Die Vorteile des Compiler-Linker- 
Prinzips wiegen diesen Nachteil bei 
weitem auf: C ist praktisch uneinge- 
schränkt portabel und die Linker- 
Funktion kann man selbst erweitern. C- 
Programme bieten neben der selbst- 
verständlichen Strukturierung einige 
ungewöhnliche aber vorteilhafte Eigen- 
schaften. So sind in Anlehnung an 
Assembler Befehle zum Inkrementieren 
und Dekrementieren vorhanden, Varia- 
ble können als Registervariable dekla- 
riert werden. Daß die Benutzung derar- 
tiger Sprachmittel einem Compiler das 
Leben leicht macht, ist klar. Einschrän- 
kungen entstehen jedoch bei Prozes- 
soren, die nur wenige Register aufwei- 
sen, wie beispielsweise die drei 8-Bit- 
Register des 6502, der nur A, X und Y 
zu bieten hat. 

Ein weiteres nennenswertes Stilmit- 
tel unter C sind Makros. Diese sind mit 
Unterprogrammen vergleichbar, die 
nicht angesprungen werden müssen, 
sondern jeweils erneut vom Compiler in 
den Objektcode eingebunden werden. 
Diese Technik bringt einen großen Zeit- 
vorteil, da Parameterübergaben und 
Sprünge entfallen. 

Im 8-Bit-Bereich ist C nur auf dem 
Z80 unter CP/M verbreitet. Eine Ver- 
sion fürden C 64 stellt hier eine erfreuli- 
che Ausnahme dar. Für 16- und 
32-Bitter existieren aber umfangrei- 
chere Versionen. 


Ada - 
gekrönter Adel 


Ada ist heute als Krönung bei der Ent- 
wicklung modularer Programmierspra- 
chen anzusehen. Die Sprache wurde 
erst in jüngster Zeit im Auftrag des welt- 
weit größten Softwaresponsors ent- 
wickelt, dem Pentagon. Der finanzielle 
und organisatorische Aufwand dafür 
war entsprechend riesig. Benannt ist 
die Sprache nach der jungen Gräfin Ada 
Byron, die um 1830 für Babbages 
(siehe oben) Rechenmaschinen ein 





nahezu komplettes Programm zur 
Berechnung der Bernoullischen Zahlen 
schrieb. 

Der Aufwand, der um Ada getrieben 
wurde, erklärt sich mit einer Kalkulation 
des US-Verteidigungsministeriums. 
Danach können zwischen 1983 und 
1999 etwa 24 Milliarden Dollar (!) ein- 
gespart werden, wenn eine einzige uni- 
verselle Programmiersprache die bis- 
herigen 450 (!!) Programmiersprachen 
ersetzen könnte. Ada ist ähnlich PL/1 
sehr umfangreich. Es wäre daher 
zwecklos, auf einzelne Sprachele- 
mente einzugehen. Deshalb hier nur die 
grundsätzlichen Sprachkonzepte von 
Ada: 


- Das Modulkonzept von Ada ist 
äußerst umfangreich. Es stehen sowohl 
datenorientierte als auch funktions- 
orientierte Module zur Verfügung. 
Innerhalb der datenorientierten Pakete 
lassen sich fast beliebige Datentypen 
und Datenstrukturen realisieren. 

- Ähnlich wie in Pascal können Daten- 
strukturen geschachtelt werden. 
Umfangreichere Prozedur- und Funk- 
tionskörper werden ausgelagert, zum 
Beispiel um die Lesbarkeit der Pro- 
gramme zu erhöhen. 

- Sämtliche Kontrollstrukturen, von 
UNTIL bis hin zu CYCLE-Schleifen ste- 
hen zur Verfügung. Ferner sind alle line- 
aren und strukturierten Datentypen 
implementiert. 

- Ein automatischer Textformatierer 
(Pretty-Printer) wertet Schachtelungs- 
strukturen aus und sorgt für ein über- 
sichtliches Layout des Programmtex- 
tes. 

- Neben Parallelverarbeitung (Multi- 
tasking) gehören Konzepte wie die 
Parallel- und Ausnahmebehandlung zu 
den bemerkenswerten Fähigkeiten, auf 
deren Erklärung hier wegen der kom- 
plexen Zusammenhänge verzichtet 
wird. 

Im großen und ganzen wurden die 
gesetzten Ziele bei der Entwicklung 
von Adanach dem heutigen Erkenntnis- 
stand optimal erreicht. Die zu Anfang 
unter den Qualitätsaspekten genann- 
ten Stichworte wie Vollständigkeit, 
Zuverlässigkeit, Korrektheit, Übertrag- 
barkeit, Wartung und Fehlerbehandlung 
wurden weitestgehend realisiert. Die 
Einfachheit der Sprache ist als ausrei- 
chend zu betrachten, wenn auch die 
vollständige Einarbeitung in dieses 
System Jahre beansprucht. Ada ist für 
Mikrocomputer zur Zeit nur unter MS- 
DOS verfügbar und auch hier nur in 
einer abgespeckten Version. 

Wir sind nun mit dem Aufstieg im 
»modernen Turm zu Babel« fast an der 
Spitze angelangt. Nach unten blickend 
können wir die gebräuchlichsten Spra- 
chen beurteilen. 

(Matthias Rosin/ev) 
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Pascal gilt als hervorragend 
geeignete Computersprache für 
Lehre und Unterricht. Zwei 
Pascal-Systeme treten an, dem 
Atari ST auch den Schulbereich 
zu erschließen. Ist der ST reif 
fürs Abitur? 


omputer sind von Natur aus voll- 
kommen respektlos. Unbeküm- 
mert dringen sie in alle nur denk- 
baren Bereiche ein und zeigen selbst 
davor keine Scheu, in die geheiligten 
Gefilde des deutschen Schulwesens 
einzubrechen. Jedem Hüter humanisti- 
schen Bildungsgutes muß es wahrhaf- 
tig monochrom vor Augen werden, 
wenn sich seine ihm anvertrauten 
Zöglinge plötzlich mit einer seltsamen 
Sprache namens Pascal beschäftigen, 
statt wie gewohnt Latein oder Grie- 
chisch zu büffeln. Und das geschieht 
dann auch noch an diesen äußerst 
suspekten Computern. 





c 


Doch letztlich muß auch eine so alt- 
ehrwürdige Institution wie die Schule 
der modernen Zeit ihren Tribut zollen. 
Der Informatikunterricht und die Com- 
putersprache Pascal haben inzwischen 
einen festen Platz im Lehrplan erhalten. 
Die strenge Sprachstruktur und die Pro- 
blemorientierung machen Pascal ohne 
jeden Zweifel zu einer idealen Sprache 
für diesen Anwendungsbereich. Dabei 
ist Pascal weit entfernt davon, nur eine 
akademische Lehrsprache zu sein. In 
Pascal kann man nämlich »richtig« pro- 
grammieren und Programme erzeugen, 
die man verkaufen kann. Wer in der 
Schule Pascal lernt, hat also nicht nur 
für die Schule, sondern tatsächlich 
etwas für das Leben gelernt. 

Der AtariST hat sich in der kurzen Zeit 
seit seiner Markteinführung als ausge- 
sprochen sprachbegabt erwiesen. 
Neben Logo, C, Basic (hier stottert er 
noch ein klein wenig), Fortn, Modula 
und verschiedenen anderen Sprachen, 
spricht und versteht er seit einiger Zeit 
auch Pascal. 

Auf dem Markt gibt es im Moment 
zwei Pascal-Systeme zu kaufen, das 
von Atari selbst vertriebene ST-Pascal 
(Preis: zirka 250 Mark) und das MCC- 
Pascal (Preis: 340 Mark) der engli- 
schen Firma Metacomco. Beide Pascal- 
Versionen stellen komplette Entwick- 
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lungssysteme dar, die auch die Pro- 
grammierung der grafischen Bediener- 
oberfläche GEM zulassen. Allerdings 
sind beide Systeme TOS-Applikatio- 
nen, also nicht in eine grafische Ober- 
fläche eingebunden. 

Zum Lieferumfang des ST-Pascal 
gehört neben einem 74-seitigen 
deutschsprachigen Handbuch in halt- 
barer Ringheftung eine S3’»-Zoll- 
Diskette mit 23 Dateien. Der Besitzer 
eines Entwicklungspaketes Atari 520 
ST findet hier einige alte Bekannte vor, 
nämlich die GEM-Libraries AESBIND 
und VDIBIND sowie die Hilfsprogramme 
BATCHTTP, RM.PRG und WAIT.PRG 
aus dem C-Compiler-System von Digital 
Research. Der Pascal-Compiler be- 
steht aus einer gut 128 KByte großen 
Datei PASCAL.PRG. Dazu gehören die 
speziellen Pascal-Libraries PASLIB und 
PASGRAOD, und eine Textdatei 
ERRORSTXT mit den Standard- 
Fehlermeldungen des Pascal. Vervoll- 
ständigt wird das Angebot durch einige 
Steuerdateien zum Compilieren und 
Linken (die .BAT-Dateien), durch den 
Linker FASTLINK.PRG, eine Include- 
Datei SCREEN.INC mit den VT52-Steu- 
ercodes, einige Beispielprogramme als 
Pascal-Quelltext und durch den TOS- 
Editor EDITTTP. 

Der Editor ist ein Full-Screen-Editor 
mit Steuerung durch Cursortasten und 
Control-Codes. Die Funktionstasten 
sind nicht belegt. Ebenfalls vorhanden 
sind einige höhere Editor-Funktionen 
wie Suchen/Ersetzen und Blockver- 
schieben. Nach Eingabe von CTRL-K 
können Befehle zur Steuerung des 
Datenverkehrs mit Diskettenlaufwerken 
eingegeben werden. 

Dieser Editor erlaubt auch das Bear- 
beiten umfangreicher Quelltexte. Wer 
allerdings schon einmal einen Text- 
Editor mit grafischer Bedieneroberflä- 
che benutzt hat, wird den GEM-Komfort 
schmerzlich vermissen. Da der Compi- 
ler des ST-Pascal ASCIl-Dateien als 
Quelltexte erwartet, kann jedoch 
selbstverständlich jeder Editor benutzt 
werden, der solche Dateien erzeugt. 

Im Gegensatz zu demnicht allzu kom- 
fortablen Editor ist der Compiler PAS- 
CAL.PRG geradezu luxuriös ausgestat- 
tet. Erkann sowohl durch Anweisungen 
aus einer Kommandozeile beim Compi- 
lerstart, als auch durch Anweisungen 
aus dem Quelltext in vielfältiger Weise 
gesteuert werden. 

Das Handbuch gibt ausführlich dar- 
über Auskunft. Der Compiler erzeugt 
eine Objektcode-Datei im 68000-Ma- 








schinencode, die ein Linker (FAST- 
LINK.PRG) mit Teilen der Library- 
Dateien zu fertigen Programmen ver- 
bindet. Diese Programme enthalten ein 
sogenanntes Runtime-Modul und sind 
deshalb wie andere TOS- oder GEM- 
Applikationen aus dem GEM-Desktop 
abrufbar. Der Sprachumfang nach dem 
ISO-Standard ist beträchtlich erweitert, 
zum Beispiel durch Implementierung 
des Variablentyp STRING. Weiterhin 
sind die sehr schnellen Grafik-Routinen 
des ST-Betriebssystems, das soge- 
nannte LINE__A-Interface, direkt als 
Standard-Prozeduren und -Funktionen 
aufrufbar. Ebenso einfach erfolgt der 
Aufruf von Betriebssystem- und GEM- 
Routinen. Spezielle Externdeklaratio- 
nen (GEMDOS, XBIOS, BIOS und C) im 
Quelltext bewirken die Einbindung der 
entsprechenden Library-Module beim 
Linken. Alle vordefinierten Funktionen 
erläutert das Handbuch recht ausführ- 
lich, sogar mit kleinen Beispielprogram- 
men. Dennoch kann das Handbuch ein 
Pascal-Lehrbuch für Anfänger nicht 
ersetzen. Hierzu sei auf die einschlä- 
gige Fachliteratur verwiesen. 

Der schon erwähnte Linker FAST- 
LINK.PRG ersetzt die beiden Pro- 
gramme LINK68.PRG und REL- 
MOD.PRG, die mit den ersten Versio- 
nen des ST-PASCAL geliefert wurden. 
Die hohe Geschwindigkeit des Linkvor- 
ganges mit FASTLINK.PRG ist in Bild 1 
dokumentiert. Besitzer des C-Compi- 
lers von Digital Research aus dem Ent- 
wicklungspaket können den neuen 
Blitzlinker auch für das Linken Ihrer C- 
Programme verwenden. 


Bei allem Positiven, was bisher über 
das ST-Pascal zu vermerken war, darf 
ein Argernis nicht unerwähnt bleiben. 
Der Pascal-Compiler ist mit einem einfa- 
chen Kopierschutz versehen, der auf- 
grund seiner Primitivität kaum Schutz 
vor illegalem Kopieren bietet. Dafür 
bringt er aber beim Arbeiten mit einer 
RAM-Disk oder, wenn einmal verfügbar, 
mit einem Festplatten-Speicher unnöti- 
gen Zeitverlust beim Compilieren. 
Selbst wenn alle Dateien der Pascal- 
Systemdiskette auf eine RAM-Disk 
oder eine Festplatte übertragen sind, 
muß sich bei der Compilierung die 
Pascal-Diskette im Diskettenlaufwerk A 
befinden. Bei jedem Compilerlauf, egal 
auf welchem Externspeicher sich der 
Compiler befindet, wird mehrfach (!) auf 
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eine besonders präparierte Schutzspur 
auf der Pascal-Diskette zugegriffen. 
Dankenswerterweise hatte der Pro- 
grammierer beim Linker ein Einsehen 
und verzichtete auf derartige Kinde- 
reien. 

Das MCC-Pascal wird auf zwei Dis- 
ketten geliefert, die insgesamt 57 
Dateien enthalten. Das mitgelieferte 
Handbuch mit etwa 200 Seiten ist lei- 
der nurinenglischer Sprache erhältlich. 
Wer Englisch gut beherrscht, findet hier 
allerdings sehr ausführliche Erläuterun- 
gen zu Befehlsumfang und Systembe- 
dienung. Das System setzt sich aus 
ähnlichen Elementen zusammen wie 
beim ST-Pascal. Man findet Editor, 
Compiler, Include-Dateien zum Aufru- 
fen von GEM-Routinen, Linker und 
Libraries, sogar gut dokumentierte 
Assembler-Quelltexte der GEM-Libra- 
ries sind vorhanden. Auch hier trifft man 
zwei wohlbekannte Programme. Wie 
bei allen Metacomco-Computerspra- 
chen wird der TOS-Editor EDTTP mit- 
geliefert. Dieser Editor von beträchli- 
cher Leistungsstärke war bereits 
Bestandteil der zweiten Serie der Atari- 
Entwicklungspakete, und dürfte ent- 
sprechend weit verbreitet sein. Leider 
hat sich Metacomco nochnicht zur Ein- 
bindung in eine GEM-Oberfläche ent- 
schließen können. 

Als Linker findet eine Updateversion 
des GST-Linkerss aus dem GST- 
Assembler und dem GST-C Verwen- 
dung. Er kann hier aber nicht wie etwa 
im Assembler aus einer grafischen 
Bedieneroberfläche gestartet werden. 
Besitzer des GST-Assemblers können 
jedoch ohne große Schwierigkeiten 
das gesamte Pascal-System in die 
Oberfläche des Assemblers integrie- 
ren. Den Pascal-Compiler startet näm- 
lich auch die Option »Run Program« im 
File-Menü. Der Linker läßt sich wie im 
Assembler aus dem entsprechenden 
Link-Menü steuern und starten. Auch 
die vielfältigen Funktionen zur Doku- 


mentation des Linkvorganges sind 
ansprechbar. 

Der Compiler PASCALTTP besitzt 
viele Optionen, die jedoch nur aus einer 
Kommandozeile bei Compilerstart, 
nicht aber aus dem Quelltext, aufrufbar 
sind. Er erzeugt aus dem Pascal- 
Quelltext eine Objektcode-Datei im 
GST-Format mit dem Dateityp .BIN, die 
durch den GST-Linker bearbeitet wer- 
den kann. Es ist aber auch eine 
Compiler-Option einstellbar, die die 
Compilierung des Quelltextes in das 
Format des ASS68 aus dem Entwick- 
lungspaket ermöglicht. Aus diesem 
Grunde sind die Pascal-Library PASLIB, 
die GEM-Library GEMLIB und das 
Runtime-Modul STARTUP als .BIN- 
Dateien für den GST-Linker und als O- 
Dateien für Digital Research Linker 
(LINK68 oder FASTLINK) auf den Dis- 
ketten vorhanden. 


Zwei Disketten 
voll Pascal 


Zum Test und zum Vergleich mit dem 
ST-Pascal wurde nur die GST-Option 
verwendet. Die fertigen Programme 
sind wie beim ST-Pascal auch ohne Pas- 
calsystem lauffähig und wie normale 


GEM- oder TOS-Applikationen zu 
benutzen. 
Was leistet der MCC-Pascal- 


Compiler? Um es gleich vorweg zu 
sagen, MCC-Pascal ist nur etwas für 
ausgesprochene Pascal-Puristen. Der 
Sprachumfang umfaßt genau das ISO- 
Standardpascal, nicht mehr, aber auch 
nicht weniger. Der Variablentyp 
STRING fehlt ebenso wie die Funktion 
KEYPRESS. Dinge also, die die Pascal- 
programmierung erleichtern. Leider 
kann die vorliegende Version des MCC- 


Pascal keine Betriebssystem- oder 
LINE__A-Aufrufe durchführen. Die 
GEM-Funktionen sind über eine 


Compilierzeiten »Sieb des Eratosthenes« 
Diskettenbetrieb 


Complier 
12,7 sec 
51,0 sec 


MCC-PASCAL 
ST-PASCAL 


Linker 
106,0 sec 
29,7 sec 


RAM-Disk 
Compller Linker 
1,9 sec 9,8 sec 
14,8 sec 1,1 sec 


Laufzeit 


17,3 sec 
0,7 sec 





Bild 1. S wie super, T wie Tempo: Supertempo von ST-PASCAL 


Rechengenauigkeit mit REAL-Zahlen 


MCC-PASCAL 


Subtraktionen 
1000 
10000 
100015 
990564 


Endwert 
0,0010 
0,0971 
10000 0,0491 
100000 0,0964 
200000 - 


Startwert 
100 
1000 


Bild 2. Rechnen will gelernt sein 


‚a k 2 us; 


72,8 





ST-PASCAL 


Subtraktionen Zeit 
1000 
10000 
100000 
1000000 
2000000 


Zeit Endwert 
1,3 0,0000 
76 0,0000 
0,0000 
0,0853 
0,0437 

















Gruppe von INCLUDE-Dateien zugäng- 
lich, die EXTERN-Deklarationen von 
AES- und VDI-Routinen sind entspre- 
chend den Digital Research-Spezifika- 
tionen zum GEM-System enthalten. Die 
eigentlichen Routinen befinden sich in 
der Library GEMLIB, die allerdings noch 


nicht ganz fehlerfrei zu arbeiten 
scheint. 
Bei einem Vergleich der beiden 


Pascal-Versionen wurden die Zeiten für 
Compilierung und Linken des Bench- 
mark-Klassikers »Sieb des Eratosthe- 
nes« sowie die Laufzeiten der erzeug- 
ten Programme für einen Durchlauf zur 
Ermittlung der Primzahlen gemessen 
(Ergebnisse in Bild 1). 

Der MCC-Compiler arbeitet sehr 
schnell. Er ist beim Arbeiten mit der Dis- 
kette schneller als der ST-Pascal- 
Compiler mit einer RAM-Disk. Genau 
umgekehrt verhält es sich hinsichtlich 
der Linkdauer. Hier hat FASTLINK ein- 
deutig die Nase vorn. Geradezu sensa- 
tionell ist jedoch der Unterschied in der 
Laufzeit der Programme. Mit gut 17 
Sekunden braucht das mit MCC- 
PASCAL erzeugte Programm länger als 
das entsprechende Turbo-Pascal- 
Programm unter CP/M-Emulation. 

Bild 2 gibt einen weiteren Test wieder, 
der neben der Laufzeit der Programme 
die Rechengenauigkeit mit Fließkom- 
mazahlen überprüft. Dabei wird in einer 
WHILE...DO-Schleife von einer vorge- 
gebenen Zahl solange der Wert O1 
subtrahiert, bis die vorgegebene Zahl 
den Wert O unterschreitet. Dies müßte 
bei einem Startwert 100000 nach 
genau einer Million Substraktionen 
erreicht sein. Wie Bild 2 zeigt, besteht 
der ST-Pascal-Compiler diesen Tast mit 
Bravour. Erst bei Startwert 100000 tre- 
ten merkbare Ungenauigkeiten auf. Der 
MCC-Pascal-Compiler macht bereits 
bei Startwert 100 sichtbare Fehler, bei 
Startwert 100000 wird der Wert O 
bereits nach 990564 Substraktionen 
erreicht. 

Aufgrund dieser Ergebnisse fällt eine 
abschließende Beurteilung leicht. Das 
MCC-Pascal ist teurer, hat den geringe- 
ren Sprachumfang, erzeugt langsa- 
mere Programme und rechnet unge- 
nauer. Auf der Plusseite lassen sich die 
geringere Compilierzeit und der bes- 
sere Editor verbuchen. 

In allen wichtigen Punkten ist jedoch 
der ST-Pascal-Compiler die eindeutig 
bessere Wahl. Trotz des geringeren 
Preises besitzt er neben dem komplet- 
ten Sprachumfang des ISO-Standard- 
Pascal viele wichtige Erweiterungen, 
die die Fähigkeiten des Atari ST besser 
ausnutzen. Auch die Laufgeschwindig- 
keit der erzeugten Programme läßt 
kaum Wünsche offen. Die Abiturreife 
kann ohne Bedenken zuerkannt wer- 
den. (W. Fastenrath/hb) 





Pascal ist an Universitäten und 
in Software-Häusern gleicher- 
maßen anerkannt. Probleme 


vollständig zu analysieren und 
strukturiert zu programmieren - 
das bringt Pascal Ihnen bei. 


ie von Wirth entwickelte Spra- 
che Pascal lief zunächst nur 
auf Großrechnern. Seinen Sie- 
geszug auf Mikrocomputern trat Pascal 
an, als auf der Universität von California 
in San Diego (UCSD) das berühmte 
UCSD-Pascal entstand. Es ist eine 
Anpassung des Wirth'schen Standard- 
Pascal an einen Mikrocomputer und 
enthält sowohl Einschränkungen als 
auch Erweiterungen. 

Pascal-Versionen für den Commo- 
dore 64 gibt es etwa seit 1983. Dabei 
handelt es sich in der Regel um »Enkel« 
des Wirthschen Urcompilers, bei 
denen allen man gewisse Abstriche 
machen muß: Sie erzeugen keine 
Maschinensprache für den C64, son- 
dern einen Zwischencode, auch P- 
Code genannt. 





setzt in P-Code 


Im Gegensatz zur Standard-Sprache 
Basic benutzt UCSD-Pascal einen 
Compiler, der den Pascal-Quellcode in 
P-Code übersetzt. Der P-Code (P steht 
für Pseudo) ist einer wirklichen Maschi- 
nensprache sehr ähnlich. Man kann 
sich diese Sprache als Modell eines 
Computers vorstellen. Es besitzt 
eigene Register, einen Stack, einen 
Heap für dynamische Variablen und 
einen Prozessor, der den P-Code aus- 
führt. Da all dies die Software zuwege 
bringt, die Maschine also nur virtuell 
vorhanden ist, läuft P-Code um einiges 
langsamer als echter Maschinencode. 
Die Laufzeiten liegen dann um etwa 
zwei- bis fünfmal höher als bei echtem 
Maschinencode. 

Man sollte aber die Vorteile dieses 
Verfahrens nicht übersehen. P-Code 
schlägt Basic in der Geschwindigkeit 
immer noch bei weitem (etwa 10 mal so 
schnell). Der erzeugte P-Code ist kom- 
pakter als der übliche Maschinencode 
und benötigt daher weniger Speicher- 
platz. 

Gegenüber Standard-Pascal weist 
KMMM-Pascaäl einige Funktionen mehr 
auf. Dazu gehört vor allem eine kom- 
plette String-Behandlung. Auch Bit- 
Operationen auf Integer-Variablen sind 
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erlaubt. Maschinensprache-Routinen 
können von KMMM aus aufgerufen 
werden. Peek und Poke sindähnlich wie 
in Basic zu verwenden. 

Das Programm besteht aus einem 
Editor, einem Compiler und einem 
Translator. Der Editor ist ein formatfreier 
Full-Screen-Editor mit überdurch- 
schnittlichem Komfort (im Vergleich 
zum Basic-Editor). Er besitzt eine Funk- 
tion zur Überprüfung der Syntax und 
belegt alle Funktionstasten. Eine häufig 
benötigte Befehlssequenz kann als 
Makro definiert werden. 

Der KMMM-Editor erzeugt eine 
sequentiele Datei, weshalb auch 
andere Editoren den Programmtext 
bearbeiten können. Danach wird der 
Compiler geladen. Er erzeugt bei 
Bedarf ein Listing auf dem Drucker und 
wandelt das Quellprogramm in P-Code 
um. Nach dem Laden des Translators 
übersetzt dieser nun den P-Code in 
schnelle Maschinensprache. 

Oxford-Pascal unterstützt weitge- 
hend alle Elemente von Standard- 
Pascal. Eine spezielle String- 
Verarbeitung unterblieb. Es verwendet 
statt dessen Variablen vom Typ 
PACKED ARRAY OF CHAR. Dafür ste- 
hen zusätzliche Befehle zum Erzeugen 
von Grafik und Sound bereit. Die Mög- 
lichkeiten des C64 lassen sich also 
auch von Pascal aus nutzen. Der Bild- 
schirm kann sogar in einen Grafik- und 
in einen Textbereich aufgeteilt werden. 
Solche Programme laufen allerdings 
deutlich langsamer. 

Unterstützt werden auch Peek und 
Poke, das Einfügen von Routinen in 
Maschinensprache und die Program- 
mierung der eingebauten Uhr. Ärgerlich 
ist lediglich die zu dünn geratene Doku- 
mentation von etwa 50 Seiten, bei der 
auch noch die Nummerierung der Sei- 
ten und ein Stichwortverzeichnis feh- 
len. 

Die Entwicklung von kleineren Pro- 
grammen gestaltet sich mit Oxford- 
Pascal angenehm. Der Basic-Editor ist 
lediglich etwas erweitert. Ansonsten 
arbeitet man genauso wie mit einem 
Basic-Programm. Der Compiler und das 
übersetzte Programm befinden sich 
gleichzeitig im Speicher. Allerdings feh- 
len in diesem Modus einige Befehle. 
Erst im Disk-Modus verfügt man über 
den gesamten Sprachumfang, muß 


aber dann die Zeit für das Laden des 
Compilers und das Speichern der Pro- 
gramme in Kauf nehmen. 
Oxford-Pascal übersetzt in P-Code. 
Es gibt aber einen Locate-Befehl, der 
eine P-Code-Datei in eine von Basic aus 








Pascal auf dem C64 


ladbare Datei umwandelt. Eine solche 
Datei benötigt dann das Oxford-System 
nicht mehr. 

Profi-Pascal hat gegenüber den obi- 
gen Pascal-Versionen einen entschei- 
denden Vorteil. Der Zugriff auf die 
1541-Floppy geht wegen der zusätzli- 
chen Diskettenroutinen dreimal so 
schnell vor sich. Allerdings wurde die- 
ser Vorteil auch mit einem entscheiden- 
den Nachteil erkauft. Profi-Pascal 
besitzt nämlich praktisch ein eigenes 
Betriebssystem mit Editor, Compiler 
und Hilfsprogrammen. Auf die Kompati- 
bilität zu anderen Programmen und 
Dateien wird damit verzichtet. 

Nach dem Laden erscheint ein Haupt- 
menü, von dem die anderen Programm- 
teile (Editor, Compiler) aus geladen 
werden. Profi-Pascal enthält viele 
zusätzliche Routinen über den norma- 
len Sprachumfang hinaus. So ist bei- 
spielsweise der Zugriff auf den gesam- 
ten Arbeitsspeicher auf sehr elegante 
Weise möglich. Der in Standard-Pascal 
nicht vorgesehene Typ String erlaubt 
die Manipulation von Zeichenketten. 
Der Direktzugriff auf Sätze innerhalb 
einer Datei ist mit der zusätzlichen Pro- 
zedur Seek möglich. 

Als weitere Eigenschaften sind das 
Verketten von Dateien und das Seg- 
mentieren von Programmen zu nennen. 
Programme mit Segment-Prozeduren 
laden einen Teil des Codes während 
des Programmlaufs in den Arbeitsspei- 
cher nach. 

Profi-Pascal besitzt komfortable 
Möglichkeiten, Assembler-Code in das 
Programm einzubinden. Schließlich 
enthält es einen eigenen Assembler. 
Der Pascal-Code selbst wird allerdings 
nicht in Maschinensprache, sondern in 
P-Code übertragen. Nachteilig ist, daß 
der Compiler nur auf der (natürlich 
kopiergeschützten) Original-Diskette ar- 
beiten kann. 


Pascal für Einsteiger 
und Profis 


Eine Pascal-Version für den preiswer- 
ten Einstieg in die interessante Sprache 
ist ganz neu im Markt& Technik Verlag 
erschienen. Es handelt sich dabei um 
einen kompletten Pascal-Kurs in Buch- 
form, der dazu sehr schnell und lei- 
stungsfähig ist und ohne Aufpreis dem 
Buch gleich auf Diskette beiliegt. 
Neben dem Compiler enthält die Dis- 
kette noch viele nützliche Beispielpro- 
gramme. Dieses »Pascal für den C 64« 
nutzt für seine Programme den gesam- 





























ten Speicher des C 64 aus. Ein Full- 
Screen-Editor ermöglicht eine komfor- 
table Programmeingabe. Der Compiler 
akzeptiert den gesamten Standard- 
Sprachumfang mit einigen Erweiterun- 
gen. Das Buch enthält einen Einfüh- 
rungskurs mit vielen Beispielen und 
Übungsaufgaben für den Anfänger 
sowie Tips und Tricks für den Profi. Mit 
gutem Gewissen kann man Buch und 
Compiler als preiswerte Alternative zu 




















den bisher bekannten Pascal- 
Versionen für den C64 empfehlen. 
Denn bei diesem Pascal-Compiler gibt 
es trotz des extrem niedrigen Preises 
keinerlei Abstriche an Sprachumfang 
oder Dokumentation. Als Autor von 
Buch und Compiler zeichnet Florian 
Matthes, den wir auch als Autoren für 
den Pascal-Kurs in diesem Sonderheft 
gewinnen konnten. 

Die Entscheidung für einen der vier 





Compiler ist sicherlich nicht einfach. 
Wer einfache Bedienung wünscht, dem 
sei Oxford-Pascal empfohlen. Reine 
Maschinensprache wird nur von 
KMMM-Pascal erzeugt. Profi-Pascal 
wiederum bietet den größten Sprach- 
umfang. 

Undein C 64-Fan, ob Einsteiger oder 
Profi, wird schließlich mit Markt &Tech- 
nik-Pascal am meisten Spaß haben. 

(Anton Gruber/cog) 
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Turbo-Pascal: 
der Renner 


Seit etwas mehr als zwei Jahren 
gibt es einen Pascal-Compiler, 
der auf dem Computermarkt 
Furore gemacht hat: Turbo-Pas- 
cal. Was das Programm alles lei- 
stet, ist schon fast unheimlich. 


DD ie Gründe für den grandiosen 
Erfolg von Turbo-Pascal sind 
recht einfach nachzuvollzie- 
hen. Da ist zuerst einmal der (damals) 
konkurrenzlos niedrige Preis. In den 
USA kostet Turbo-Pascal etwa 50 Dollar 
- in Deutschland um die 200 Mark. Ein 
Direktimport lohnt sich aber dennoch 
nicht, weil Sie Zoll und Verpackungsge- 
bühren bezahlen müßten, die den 
scheinbaren Preisunterschied wieder 
ausgleichen. 

Einen Pascal-Compiler für 200 Mark 
- das gab es vor Turbo-Pascal nirgends 
auf dem Computermarkt. So fanden 
sich nicht wenige, denen das Risiko 
eines Fehlkaufs klein genug erschien 
und sich aus diesem Grund Turbo- 
Pascal gekauft haben. MS-Pascal von 


Microsoft und Pascal/MT+ von Digital 
Research, die beiden vormals haupt- 
sächlich benutzten Compiler, kosteten 
jenach Betriebssystem zwischen 1000 
und 2000 Mark. Für MS-Pascal gilt dies 
heute noch, während Pascal/MT+ in 
einer Version für den Schneider CPC 
6128 inzwischen auch auf ungefähr 
200 Mark herunterging. Damit zielt es 
direkt auf den Turbo-Pascal-Markt. 
Allein der Preis kann aber dennoch 
nicht für den Erfolg von Turbo-Pascal 
verantwortlich sein. Schließlich gibt es 
heute auch schon Pascal-Compiler ab 
100 Mark (zum Beispiel Nevada- 
Pascal), die trotz ihres günstigen Prei- 
ses eher ein Schattendasein führen. 
Zählen wir also weiter Turbo-Pascal- 
Vorzüge auf: Turbo-Pascal ist ein inte- 
griertes Programmpaket, das aus 


einem Editor, dem eigentlichen Compi- 
ler und einer Laufzeitumgebung be- 
steht. Was das heißt, kann nur jemand 
ermessen, der schon mit anderen 
Compilersprachen gearbeitet hat. Ein 
typischer Arbeitszyklus sieht dort etwa 
so aus: Texteditor laden (meistens wird 





keiner mitgeliefert, also muß Wordstar 
oder ein anderes normales Textpro- 
gramm dafür herhalten), Datei anlegen, 
Text eintippen, Datei speichern, Editor 
beenden und Compiler aufrufen. Dieser 
übersetzt das Programm in Maschinen- 
Quellcode oder einen Zwischencode, 
zum Beispiel den p-Code von UCSD- 
Pascal. 

Hier scheiden sich dann die 
(Compiler-)Geister: Manche benötigen 
einen Assembler, der Maschinencode 
erzeugt, andere einen Linker, der die 
Programm-Module zusammenkettet 
und wieder andere einen Laufzeit- 
Interpreter, der die Programme - ähn- 
lich einem Basic-Interpreter - in der 
Zwischensprache ausführt. Wenn der 
Compiler allerdings einen Fehler mel- 
det, muß der Programmierer wieder mit 
dem Editor heran und die Fehler aus- 
bessern. Stürzt das Programm gar völlig 
ab, geht die Fehlersuche ganz von 
vorne los. 

Ganz anders dagegen arbeitet Turbo- 
Pascal. Der Programmierer gelangt in 
eine Art »Benutzerebene«, von der aus 
er Befehle geben kann. So ruft er mit 
»E« für »Edit« den eingebauten Textedi- 
tor auf. Dieser versteht - Segen für alle 
Wordstar-Freaks - eine Untermenge 
der Wordstar-Kommandos. Er ist aber 
auf das Editieren von Pascal- 
Programmen hin erweitert worden. So 
gibt es eine »Auto-Indent«-Funktion. 
Diese bewirkt, daß der Cursor nach 
Drücken der Enter-Taste nicht an den 
Anfang der nächsten Bildschirmzeile, 
sondern unter den Beginn der letzten 
Programmzeile gesetzt wird. Damit 
unterstützt Turbo-Pascal wirkungsvoll 
das Prinzip der Texteinrückungen, die 
Pascal-Programme so gut lesbar 
machen. Auch ist der Turbo-Editor ein 
ganzes Stück schneller als Wordstar. 
Beispielsweise führt er den Bildschirm- 
aufbau und die Invertierung von Text- 
blöcken mit Höchstgeschwindigkeit 
durch - auch eine Rechtfertigung für 
»Turbo« im Namen »Turbo-Pascal«. Die- 
ser Geschwindigkeitsvorteil liegt aller- 
dings zum Teil daran, daß der gesamte 
bearbeitete Programmtext im Speicher 
liegen muß, während Wordstar auch 
Diskettentexte bearbeiten kann. Trotz 
dieser Einschränkung eignet sich der 
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Turbo-Editor nebenbei hervorragend 
zur Textverarbeitung. So sind die Block- 
kopierbefehle sogar auf dem CPC 464 
und CPC 664 von Schneider ohne 
Speichererweiterung funktionsfähig. 
Sobald der Benutzer den Pascal- 


Quellcode fertig eingegeben hat, 
drückt er in Wordstar-Manier CTRL-KD 
und gelangt wieder in die Kommando- 
ebene. Dort kann er das Diskettenlauf- 
werk wechseln, neue Disketten anmel- 
den, die Datei speichern und andere 
Dateien laden. »D« gibt ein Directory der 
angemeldeten Diskette aus und hat 
gegenüber dem CP/M-Kommando DIR 
den Vorteil, daß der freie Disketten- 
Speicherplatz mit angezeigt wird. Der 
Benutzer erfährt aus dem Hauptmenü 
auch, wieviel Speicherplatz der Quell- 
text belegt und wieviel Platz noch frei 
bleibt. Mit »C« läßt sich der Compiler 
starten, der das Programm mit extrem 
hoher Geschwindigkeit (»Turbo«) über- 
setzt. Er besitzt jede Menge Fehlermel- 
dungen, die meist sehr informativ sind. 
Sobald er einen Fehler entdeckt, gibt 
Turbo-Pascal die (meistens) passende 
Meldung aus und kehrt direkt in den 
Turbo-Editor zurück. Der Cursor steht 
dann an der Stelle, an der der Fehler auf- 
trat. Wenn der Speicherplatz knapp 
wird, können Sie aber auch die Fehler- 
meldungen aus dem Programm heraus- 
werfen und haben damit etwa 2 KByte 
mehr Speicherplatz zur Verfügung. Alle 
Fehler erscheinen dann nur noch mit 
ihren Nummern, die im - gut gemach- 
ten - Handbuch nachzuschlagen sind. 

Müssen Sie sich mit fehlendem Spei- 
cherplatz herumschlagen (auf dem 
CPC 464 und CPC 664 verbleiben nur 
noch etwa 6 beziehungsweise 8 
KByte), bleiben aber auch noch andere 
Wege, große Programme zu überset- 
zen. Da wären zuerst einmal die 
Include-Files. Das sind Dateien, die 
separat auf der Diskette stehen und 
erst bei der Übersetzung in den Pro- 
grammcode integriert werden. Außer- 
dem läßt Ihnen Turbo-Pascal die Wahl, 
ob der Objektcode des Programms im 
Speicher abgelegt werden soll (Com- 
pile To Memory) oder auf Diskette. Bei 
letzterem können Sie sich zwischen 
dem Dateityp »COM« und >CHN« ent- 
scheiden. Der Unterschied besteht 
darin, daß im ersten Fall das erzeugte 
Programm mit einer Laufzeitbibliothek 
ausgestattet ist. Diese kostet zwar eini- 
ges an Speicher- und Diskettenplatz, 
erzeugt aber Programme, die unabhän- 
gig von Turbo-Pascal arbeiten. 

Die Programme sind - wie bereits 
gesagt - reiner Maschinencode. Die 
8-Bit-Variante von Turbo-Pascal erzeugt 
Z80-Code und ist damit eines der weni- 
gen CP/M-Programme, die nicht auf 
Computern mit 8080/8085-Prozessor 
gestartet werden können, sondern den 
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Z80-Chip voraussetzen. Andererseits 
sind die Z80-Erweiterungen sehr lei- 
stungsfähig und bewirken kompakteren 
und schnelleren Maschinencode. 

Was den Programmierer aber wohl 
am brennendsten interessiert, ist der 
Befehlsvorrat des Compilers - ein wei- 
terer Pluspunkt für Turbo-Pascal. Wäh- 
rend viele Pascal-Compiler der niedri- 
geren Preisklassen »Subsets« des 
Sprachstandards sind, also nur Teile 
der Sprache verstehen, ist Turbo- 
Pascal ein »Superset« - und was für 
eines! 

Niklaus Wirth entwickelte Pascal 
eigentlich nur als Lehr- und Unterrichts- 
sprache. Dementsprechend fehlen in 
Standard-Pascal viele nützliche und 
dringend notwendige Dinge. Turbo- 
Pascal wartet mit einer ganzen Menge 
von diesen auf. Da gibt es zum Beispiel 
den Datentyp STRING, den man nun 
nicht mehr durch einen ARRAY OF 
CHAR simulieren muß. Stilgerecht feh- 
len auch nicht die entsprechenden 
Funktionen und Prozeduren zur String- 
behandlung. Selbstverständlich wird 
die Dateibehandlung auf Diskette und 
Festplatte samt Relativ- und Direktzu- 
griffdateien unterstützt. Neu ist auch 
der Datentyp BYTE. 


De os,” 
oo 
Fur Kenner ein Pius: 
© 
Maschinennähe 


Für Maschinensprache-Kenner, de- 
nen die Entwicklung von reinen 
Maschinencode-Programmen zu müh- 
sam ist, hält Turbo-Pascal eine Reihe 
von maschinennahen Erweiterungen 
bereit: SHR (Shift Right) und SHL (Shift 
Left) erlauben das Links- und Rechts- 
schieben von Bits in Zahlen und Varia- 
blen. Die Funktionen HI und LO liefern 
das High- und Lowbyte einer Integerva- 
riablen in eine Byte-Variable: 

Program HilLow; 

Var i1:Integer; 

Begin 

Readin(i); 
WriteLn(Hi(i),' ',Lo(i)); 
End. 

Dieses kleine Beispielprogramm liest 
eine 16-Bit-Zahl von der Tastatur ein 
und gibt deren High- und Lowbyte aus. 

Weitere maschinennahe Funktionen 
sind ADDR zur Ermittlung der Adresse 
einer Variablen und PORT zum direkten 
Zugriff auf die Prozessor-Ports. Das 
Pseudo-Array MEM (»Memory«) simu- 
liert die beliebten PEEK- und POKE- 
Befehle aus Basic. Diese Sprache 
erscheint im Gegensatz zu Turbo- 
Pascal regelrecht archaisch. 

Auf einer vielhöheren Ebenearbeiten 
die Befehle zur Verwaltung dynami- 
scher Variablen, nämlich MARK, RE- 
LEASE und DISPOSE. 





Natürlich präsentiert sich Turbo- 
Pascal nicht »nackte. Neben dem 
TURBO.COM-File, das mit 31 KByte 
Länge das Hauptprogramm darstellt, 
sowie TURBO.MSG (System-Meldun- 
gen) und TURBO.OVR (ein 2KByte- 
Overlay) findet sich noch MC.PAS, das 
als Demonstration der Leistungsfähig- 
keit des Compilers dient. MC.PASistein 
kleines Tabellenkalkulationsprogramm, 
genannt MicroCalc. Es ist verständli- 
cherweise nicht so leistungsfähig wie 
seine großen Brüder (etwa Multiplan, 
Visicalc oder Supercalc), aber es erfüllt 
seinen Zweck recht gut. Es wurde aller- 
dings auch gar nicht zur »richtigen« 
Arbeit geschrieben, sondern soll viel- 
mehr exemplarisch die Fähigkeiten von 
Turbo-Pascal zeigen. Wenn die Kalkula- 
tionsaufgaben nicht allzu kompliziert 
werden, erspart es trotzdem das Geld 
für die Anschaffung eines anderen Pro- 


gramms. 
Zum Lieferumfang gehört ferner ein 
Programm, das andere Pascal- 


Programme auf dem Drucker auflistet. 
LISTER.PAS erzeugt an den passenden 
Stellen einen Seitenvorschub und kann 
auf Wunsch Zeilennummern in den Text 
einfügen und Pascal-Schlüsselwörter 
unterstreichen. 

Für die Schneider-Computer gibt es - 
gegen Aufpreis, versteht sich - eine 
Grafikerweiterung, die die hervorragen- 
den Fähigkeiten dieser Computer auf 
diesem Gebiet unterstützt. Unter ande- 
rem dient TURTLE.PAS als einfaches 
Zeichenprogramm nach dem Prinzip 
der Logo-Schildkröten-Grafiken. WIN- 
DOW.PAS zeigt, wie das »Fensterlin« 
unter Pascal funktioniert. 

Immer mehr Firmen versuchen, sich 
an den Erfolg von Turbo-Pascal anzu- 
hängen und liefern Programmsammlun- 
gen für alle möglichen Anwendungs- 
zwecke. Zum Beispiel werden da Turbo- 
Lader, Turbo-Machine, Turbo-Screen 
oder Turbo-Data angeboten. Von 
Heimsoeth-Software, der deutschen 
Vertriebsfirma von Turbo-Pascal, stam- 
men unter anderem Turbo-Graphix, 
Turbo-Editor und Turbo-Gameworks. 
Doch aufgepaßt: Turbo-Pascal gibt es 
auch für IBM-Computer unter MS-DOS. 
Viele der Programmpakete arbeiten nur 
unter diesem Betriebssystem und sind 
für CP/M-Benutzer unbrauchbar. Das 
betrifft zum Beispiel auch einige der 
gerade genannten Programme. 

Leider vernachlässigt Borland zur 
Zeit etwas die CP/M-80-Version von 
Turbo-Pascal. So hat die 8-Bit-Variante 
vom »Lifting« in der neuen 3.0-Version 
kaum profitiert, während das MS-DOS- 
Pendant noch weiter verbessert wurde. 
Dennoch: An Turbo-Pascal gibt es nicht 
mehr allzu viel besser zu machen. Es ist 
einfach schon nahezu perfekt. 

(Martin Kotulla/hg) 
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Sie wollten schon immer wissen, 
was es mit der vielgerühmten 
strukturierten Programmierung 
in Pascal auf sich hat? Oder 
besitzen Sie gar einen Pascal- 
Compiler für Ihren Computer? 
Dann nehmen Sie sich ein wenig 
Zeit, und studieren Sie folgen- 
den Artikel. 


ur Eingabe eines Pascal-Pro- 

grammes, zur Übersetzung und 

zur Fehlerkorrektur müssen Sie 
spezielle Hilfsprogramme benutzen, 
deren Bedienung natürlich an dieser 
Stelle nicht beschrieben werden kann. 
In diesen Fällen hilft ein Blick in die 
Handbücher, die mit jedem Compiler 
geliefert werden. 

Die grundlegenden Eigenschaften 
der Spache Pascal lassen sich am ein- 
fachsten an einem konkreten Beispiel- 
programm erläutern (Listing 1). Am 
besten lesen Sie zunächst einmal den 
gesamten Programmtext durch. Über- 
legen Sie sich für jede Zeile, welche 
Bedeutung die Anweisungen haben 
könnten. Auch ohne Kenntnisse in Pas- 
cal werden Sie erkennen, daß dieses 
Programm vom Benutzer die Eingabe 
einer Folge von Zahlen erwartet, über 
die eine Summe gebildet und gedruckt 
wird. 

Auf den ersten Blick fällt bereits die 
stufenförmige Einrückung der Zeilen 
auf. Sie ist jedoch neben den Kommen- 
taren zwischen »(*« und »*)« das ein- 
zige an einem Pascal-Programm, das 
keinerlei Bedeutung bei der Überset- 
zung des Programms besitzt. Genauer 
gesagt, betrachtet der Compiler ein 
Pascal-Programm als eine lange Folge 
von Symbolen (Sonderzeichen und Na- 
men), die beliebig durch Leerzeichen 
oder Zeilenenden getrennt sein kön- 
nen. Im Prinzip könnte man also ein 
Pascal-Programm als einen riesigen 
Bandwurmsatz in eine einzige Zeile 
schreiben. Andererseits sind die Ein- 
rückungen, Leerzeilen und Kommen- 
tare die einzige Orientierungshilfe für 
den menschlichen Leser, um die teil- 
weise komplex geschachtelten Schlei- 
fen und Abfragen in einem Programm 
auf einen Blick zu erkennen, so daß 
man einen »guten« Programmierstil 
bereits am systematischen Layout 
erkennt. 

Es folgt also, daß man sich bei der 
Programmierung nicht auf eine »logi- 
sche« Einrückung des Textes verlassen 
darf, sondern vielmehr durch die Ver- 


26 


PROGRAM SUMME (INPUT, OUTPUT); 


(® DAS ERSTE PASCALPROGRAMM ZUR UEBUNG %) 


CONST ANZAHL = 4, 
SUMME,X : REAL; 
I : INTEGER; 
BEGIN 
NRITELN(' Gaben Sie bitte 
SUMME: = 0.0; 
FOR I: = 1 TO ANZAHL DO 
BEGIN 
READY): 
END; 
WRITELN; 
WRITELN(' Die Summe hetraagt 
WRITELN' Der Durchschnitt iat 
END. 


SUMME: «» SUMME «+ X 





PROGRAM Name (INPUT, OUTPUT), 


CONST Konstantendeklarationen 

VAR Variablendeklarationen 
PROCEDURE / PUNCTION Unterprogramm 
deklarationen 

BEGIN 


Anweisung; 
END. 


Bild 1. Der prinzipielle Aufbau eines 
Pascal-Programmes 


Anweisung; ... 





wendung von Sonderzeichen und Inter- 
punktionszeichen (Semikolon, Punkt, 
Komma) die Interpretation des Pro- 
grammes steuern muß. 

Neben den Sonderzeichen besteht 
ein Programm aus Wörtern. Dabei 
unterscheidet man zwischen reservier- 
ten Schlüsselwörtern (Wortsymbolen) 
und frei wählbaren Namen. Schlüssel- 
wörter haben eine feste syntaktische 
Bedeutung und können nicht als 
Namen zum Beispiel für Variablen (wie 
SUMME) verwendet werden. Tabelle 1 
zeigt die kurze Liste der reservierten 
Schlüsselwörter in Pascal. In den fol- 
genden Artikeln werden Sie die Bedeu- 
tung der meisten dieser Wörter kennen- 
lernen. 

Namen in Pascal bestehen aus einem 
Buchstaben, dem eine beliebige Reihe 
von Buchstaben oder Zahlen folgt. 
Jeder Pascal-Compiler berücksichtigt 
mindestens die ersten acht Zeichen 
eines Namens, so daß Sie Namen nicht 
wie in Basic auf zwei Zeichen Länge 
verstümmeln müssen. Da in Pascal 
nicht nur Variable, sondern auch Unter- 
programme, Konstanten und Typen mit 
Namen versehen werden, sollte man 
bei der Namensgebung möglichst 
systematisch vorgehen, um aus diesen 
Namen auf die Bedeutung schließen zu 
können. 

Beispiele für sinnvolle und erlaubte 
Namen sind: ANFANGSBUCHSTABE, 
ENDEZEICHEN, GRENZE, FEHLER. 

Nachdem Sie jetzt einen Überblick 
über die Einzelteile (Symbole) eines 





„ANZAHL, ' 


* SUMME); 
', SUMME / ANZAHL) 


Zahlen ein!'); 


Listing 1. 

Dieses Pascal-Programm 
berechnet Summe 

und Querschnitt 


AND FILE NOT To 
ARRAY FOR or TYPE 
BEGIN FORWARD OR UNTIL 
CASE FUNCTION PACKED VAR 
CONST GOTO PROCEDURE WHILE 
DIV IP PROGRAM WITH 
DO IN RECORD 

DORNTO LABEL REPEAT 

ELSE MOD SET 

END NIL THEN 


Tabelle 1. Reservierte Wörter in 
Pascal 


Pascal-Programms besitzen, wenden 
wir uns nun dem Zusammenbau dieser 
Elemente zu einem vollständigen Pro- 
gramm zu. Jedes Programm hat die in 
Bild 1 gezeigte Struktur: 

- Programmkopf 

- Deklarationen 

- BEGIN 

- Anweisungen 

- END 

Im Rahmen dieses Artikels besteht 
jeder Programmkopf aus dem Schlüs- 
selwort PROGRAM, einem Namen und 
der Parameterliste (INPUTOUTPUT). 
Die Namen INPUT und OUTPUT zeigen 
an, daß im Programm Eingaben von der 
Tastatur und Ausgaben an den Bild- 
schirm vorkommen können. 

Der nachfolgende Deklarationsteil 
definiert alle Namen, die im Programm 
verwendet werden. Grundsätzlich gilt in 
Pascal die Regel, daß die Definition 
eines Namens im Programm-Text vor 
der Anwendung des Namens in einer 
anderen Definition oder in einer Anwei- 
sung stehen muß. Dadurch können 
Pascal-Programme in einem einzigen 
Durchlauf (one pass) compiliert wer- 
den, da vor jeder Anwendung eines 
Namens der Compiler alle Informatio- 
nen über einen Namen bereits gelesen 
hat. 

In dem Beispielprogramm in Listing 1 
wird zum Beispiel eine Konstante AN- 
ZAHL mit der Deklaration 
CONST ANZAHL = 4 
definiert. Immer wenn im nachfolgen- 
den Programm-Text der Name ANZAHL 
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auftritt, wird die Konstante 4 compiliert. 
Außerdem würde der Compiler eine 
Zuweisung an diese Konstante, bei- 
spielsweise mit »ANZAHL := 39«, als 
Fehler erkennen. Dies ist einer der vie- 
len Vorteile der expliziten Deklaration 
von Namen: Der Compiler schützt den 
Programmierer vor der falschen oder 
doppelten Verwendung eines Namens. 
Wer sich schon einmal durch ein größe- 
res fremdes Programm gekämpft hat, 
wird auch wissen, daß die Abfrage 

IF ANZAHL=MAXIMALANZAHL THEN... 
verständlicher ist als 

IF A=49 THEN... 

Nicht zuletzt erlaubt die Verwendung 
von Konstanten eine einfache Ande- 
rung bestehender Programme. Soll das 
Programm in Listing 1 später einmal 
acht Zahlen summieren, so genügt die 
einmalige Anderung der Konstanten 
ANZAHL, wodurch sowohl die Ober- 
grenze der FOR-Schleife als auch die 
Division bei der Durchschnittsbildung 
angepaßt wird. 

Das Programm SUMME enthält noch 
eine weitere Form von Deklarationen: 
VAR SUMME, X: REAL; 

I : INTEGER; 

Hinter dem Schlüsselwort VAR wer- 
den alle Variablen des Programms mit 
ihrem Typ (zum Beispiel INTEGER) auf- 
geführt. Der Typ einer Variablen gibt an, 
welche Werte eine Variable annehmen 
darf (zum Beispiel Zahlen oder Zei- 
chen). Während in Basic der Typ einer 
Variablen aus dem Namen hervorgeht 
(A$, A%, A), wird in Pascal der Name 
eines Typs bei der Deklaration angege- 
ben. Zunächst wollen wir uns auf die 
vordefinierten Standard-Typen be- 
schränken: 

REAL: Dieser Typ umfaßt die reellen 
Zahlen (zum Beispiel +1.0, 0.0, -1.2, 
2.3E-4). 

INTEGER: Werte vom Typ INTEGER 
sind ganze Zahlen aus einem 








PROGRAM GESCHWINDICKEITSTEST (INPUT, 
CONST LETZTERDURCHLAUF = 10000, 


: INTEGER; 
: REAL; 
ZAEHLER: INTEGER; 
BEGIN 





OUTPUT), 
(* WIEDERHOLE SCHLEIFE SO OFT *) 


WRITELN(' INTEGER-Schleife gestartet! '); 


X1:= 0; 


FOR ZAEHLER: - 1 TO LETZTERDURCHLAUF DO X1:= Xi+r1, 
WRITELNt' INTEGER-Schleife beendet!'), 
WRITELN(' REAL-Schleife gestartet! ’),;, 


X\2:= 0; 


FOR ZAEHLER: >» 1 TO LETZTERDURCHLAUF DO X2:=> X2+»1; 
WRITELN(' REAL-Schleife beaendet!'); 


END. 


Listing 2. Ein Geschwindigkeltsvergleich zwischen REAL und INTEGER 


beschränkten Intervall. Typischerweise 
sind dies die Zahlen zwischen -32768 
bis 32767. 

CHAR: Eine Variable vom Typ CHAR 
kann ein einzelnes Zeichen, wie »Ae«, »!« 
oder »4« speichern. 

BOOLEAN: Dieser Typ ist Ihnen 
sicherlich nicht ganz so vertraut wie die 
übrigen Standard-Typen. Er umfaßt 
nämlich nur die logischen Werte »wahr« 
(TRUE) und »falsch« (FALSE). So liefern 
zum Beispiel Vergleiche ein Ergebnis 
vom Typ BOOLEAN. Mit booleschen 
Werten kann man über die logischen 
Operatoren UND, ODER und NICHT 
(AND, OR, NOT) »rechnen«, und die 
Ergebnisse in einer Variablen spei- 
chern: 


27=13 (FALSE) 
12>4 (TRUE) 
'A'<'B' (TRUE) 
'A'z!a! (FALSE) 


u 


id ; 








(A=B) OR (X=Y) 
RICHTIG := ERGEBNIS = LOESUNG 
FALSCH := NOT (RICHTIG) 

Die letzten beiden Zeilen verwenden 
zwei boolesche Variablen RICHTIG und 
FALSCH, die mit 
VAR RICHTIG, FALSCH: BOOLEAN; 
deklariert werden müssen. Diese Bei- 
spiele machen auch den Unterschied 
zwischen dem Vergleichsoperator »=« 
und dem Zuweisungsoperator »:=« 
deutlich. Mit »ERGEBNIS = LOE- 
SUNG« wird der Inhalt der Variablen 
ERGEBNIS mit dem Inhalt der Variablen 
LOESUNG verglichen. Stimmen beide 
überein, so liefert der Vergleich das 
Ergebnis TRUE. Um einer Variablen 
einen neuen Wert zuzuweisen, verwen- 
det man den Zuweisungsoperator »:=«. 
Typische Beispiele sind: 

I:= I+l 
ERGEBNIS:= SIN(X)+COS(X) 
LOESUNG: = AB - C#D + 23.0 

Zur Verdeutlichung der Wirkung der 
booleschen Operatoren enthält Tabelle 
2 eine sogenannte Wahrheitstabelle, 
die zum Beispiel angibt, daß falsch und 
wahr gleich falsch ist (FALSE AND 
TRUE = FALSE). 

Warum unterscheidet man aber zwi- 
schen den Typen REAL und INTEGER? 
Für einen Computer ist es wesentlich 
einfacher, mit ganzen Zahlen zu rech- 
nen oder zu zählen, als Fließkomma- 
Arithmetik mit reellen Zahlen durchzu- 
führen. Außerdem lassen sich Zahlen 
vom Typ INTEGER wesentlich kompak- 
ter als REAL-Zahlen speichern. Das 
bedeutet für die Praxis, daß man nur in 
Ausnahmefällen Variablen vom Typ 
REAL deklariert, und zwar nur dann, 
wenn sehr große Zahlen verarbeitet 
oder Nachkommastellen dargestellt 
werden müssen. Bei einer genaueren 
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Untersuchung der meisten Programme 
wird man jedoch feststellen, daß die 
Mehrzahl der Variablen nur zum Zählen 
in Schleifen, als Indizes in Tabellen oder 
für ähnliche Steuerungsaufgaben be- 
nutzt werden, in denen INTEGER-Zah- 
len völlig ausreichen. Wer einen Com- 
puter zur Verfügung hat, sollte sich den 
erheblichen Geschwindigkeitsunter- 
schied zwischen Operationen mit gan- 
zen und reellen Zahlen am Beispielpro- 
gramm in Listing 2 verdeutlichen. 

Zum Abschluß dieses kleinen Exkur- 
ses über die Standard-Typen in Pascal 
soll noch ein weiterer Begriff geklärt 
werden, der Ihnen bei der Lektüre eines 
Pascal-Lehrbuches oder in Fehlermel- 
dungen des Compilers häufiger begeg- 
nen wird: Ein »skalarer Typ« ist ein Typ, 
dessen Werte einzeln aufzählbar sind 
und der nicht in einfachere Typen zer- 
legt werden kann. 

INTEGER, CHAR und BOOLEAN 
sind beispielsweise skalare Typen. 
Reelle Zahlen oder Mengen haben kei- 
nen skalaren Typ. Später werden 
Anwendungen genannt, in denen nur 
Werte eines skalaren Typs auftreten 
dürfen. An solchen Stellen sind also nur 
ganze Zahlen, nicht aber reelle Zahlen 
zu verwenden. 


Anweisungen und 
Blockstruktur 


Jetzt können wir uns dem Anwei- 
sungsteiil eines Pascal-Programms 
zuwenden, der definiert, was mit den 
Objekten geschieht, die im Deklarations- 
teil vereinbart wurden. Bild 2 zeigt einen 
Überblick über alle Arten von Anwei- 
sungen, die nachfolgend beschrieben 
sind. 

Die Philosophie der sogenannten 
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PROGRAM ZUWEISUNGEN ( INPUT, OUTPUT); 


VAR R: REAL, 
l: INTEGER: 
B: BOOLEAN; 
C: CHAR; 
BEGIN 
R:= 3. 141592653; 
SORLSINER)I) + SORLCOSIUR)), 
0; 
I1»1; 
Ile» I - 7; 
13 DIV 4, 
13 MOD 4; 
ABSCtR); 
ABS(I),; 
CH: ='A',; 
CH: = CHR( 65), 


I:= ORDU'A'); 


B:= (1034); 
BI= B OR NOT B; 


(#2 PI ist eine reelle Zahl 
-) R= 1.0 


vorwaerts zaehlaen 
Ergebnis ist ganze Zahl 
Division mit Rest -> I=3 
Dıvısaıonsreat -) Iei 
Abaolutwert vom Typ REAL 
dagl. vom Typ INTEGER 
nur einzelne Zeichen '! 
CHR liefert das Zeichen 
mit dem Code 65, das ist 
der Buchstabe 'A' 

ORD wirkt genau umgekehrt, 
alao iat danach I- 65 
TRUE, falla I:»d4 

Immer richtig (TRUE)! 


Listing 3. Mögliche Formen der Zuweisung In Pascal 


strukturierten Programmierung, die ja 
bekanntermaßen der Sprache Pascal 
zugrunde liegt, verbirgt sich in dem 
Zweig mit der Bezeichnung »Zusam- 
mengesetzte Anweisungen« Jede 
zusammengesetzte Anweisung kann 
aus einer Vielzahl verschiedener (even- 
tuell ebenfalls zusammengesetzter) 
Anweisungen bestehen. Man kann sich 
eine Anweisung als einen Block vorstel- 
len, der einen Eingang und einen Aus- 
gang besitzt. Ist ein Block eine zusam- 
mengesetzte Anweisung, so enthält er 
kleinere Blöcke mit je einem Eingang 
und Ausgang, die nach festen Regeln 
geschachtelt werden. So kann jeder 
Block als eine Einheit betrachtet wer- 
den, ohne die umgebenden Böcke zu 
kennen. Das mag etwas abstrakt klin- 
gen, aber das Bild einer Blockstruktur 
ist zur Verdeutlichung der Schachtelun- 
gen recht anschaulich. 

Einfache Anweisungen: Dies sind 
die elementaren Bausteine, aus denen 
der Anweisungsteil besteht. Die wich- 








tigste Form der einfachen Anweisun- 
gen hatten wir bereits kennengelernt: 
Eine Zuweisung besteht aus dem 
Namen einer Variablen, dem Zuwei- 
sungsoperator »:=« und einem Aus- 
druck. Das Programm in Listing 3 zeigt 
Ihnen eine Vielzahl von Beispielen für 
Zuweisungen in Pascal. Sie werden 
feststellen, daß sich die Ausdrücke von 
ihren Gegenstücken in Basic oder Fort- 
ran nur unerheblich unterscheiden. Sie 
haben also nicht eine so extravagante 
Form wie in C oder gar in Forth. Natür- 
lich gilt auch in Pascal die Regel »Punkt- 
vor Strichrechnung«. 

Bitte achten Sie darauf, daß der Typ 
des Ausdruckes auf der rechten Seite 
des »:=« mit dem Typ der Variablen vor 
dem »:=« verträglich ist. Daß man einer 
Variablen vom Typ CHAR keine Zahl 
zuweisen kann, ist wohl selbstverständ- 
lich. Jedoch ist es auch nicht möglich, 
einer Variablen vom Typ INTEGER 
direkt eine reelle Zahl zuzuweisen. Man 
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muß vielmehr angeben, was mit den 
eventuell vorhandenen Nachkomma- 
stellen geschieht. Hierzu dienen die 
Standardfunktionen TRUNC und 
ROUND, die Nachkommastellen einer 
reellen Zahl abschneiden oder zur 
nächsten ganzen Zahl aufrunden 
(Tabelle 3). 


ı TRUNCLX)L ROUNDLX) ; 


Tabelle 3. Die Wirkung von 
TRUNC und ROUND 


Wie bestimmt man aber den Typ eines 
Ausdrucks? Dazu stellt man zunächst 
die Typen der Konstanten und Variablen 
(aus dem Deklarationsteil) fest. Eine 
Zahl ohne Dezimalpunkt und Exponent 
ist vom Typ INTEGER: 

Beispiele: 

1 0 -8 100000 

(Zahlen vom Typ INTEGER) 
1.2 1E-4 123.4 
(Zahlen vom Typ REAL) 

Wird eine reelle Zahl mit einer ganzen 
Zahl verknüpft, so erhält man als Ergeb- 
nis eine reelle Zahl. Indem man schritt- 
weise (unter Beachtung der Prioritäten 
und Klammern) den Ausdruck auflöst, 
entsteht der Ergebnistyp. 

Beispiele: 
A:= 1000 * (1000 + 4) 
B:= 1000 * (1000 + 4.0) 

Da der Wertebereich INTEGER meist 
nur Zahlen kleiner oder gleich 32768 
darstellen kann, würde bei der Ausfüh- 
rung der ersten Zuweisung ein Überlauf 
eintreten. Durch die Addition von 4.0 
(vom Typ REAL) ist jedoch im zweiten 
Falldas Ergebnis (B) vom Typ REAL und 
somit noch darstellbar. 

Tabelle 4 gibt einen Überlick über die 
möglichen Operatoren in Pascal mit 
konkreten Beispielen. Außergewöhn- 
lich ist nur die Tatsache, daß die logi- 
schen Operatoren AND und OR stärker 
binden als die Vergleichsoperatoren 
(>,<,=,<>). Diese Einheit muß bei 
der Formulierung von Bedingungen 
(zum Beispiel bei IF-Anweisungen) 
durch eine korrekte Klammerung 
beachtet werden: 

Beispiel: 

IF (A=B) OR (C=D) THEN... 
und nicht 

IF A=B OR C=D THEN... 

(Beim zweiten Ausdruck würde zu- 
nächst »B OR C« berechnet, das Ergeb- 
nis mit A verglichen, das Resultat (vom 
Typ BOOLEAN) schließlich mit D vergli- 
chen werden, was wohl nicht beabsich- 
tigt war.) 
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ı + (Vor2.)| Identitaet 
ı - (Vora.)ı Vorzeıchenwechsel 
+ ı Addition 
ı Vereınıqgungsmange 
ser a + CI) 
ı Subtraktion 
Dıfferanzmenge 
ı 11,2.,3.4) - (3,5) 
ı Multiplikation 
ı Schnıttmaengae 
ı bez) Rn 13,51 
ı Divisıon mıt Rest 
ı Divisionserest 
‘normale Diviaion 


(1,2,3lel] ı 
(alle FALSE) | 
‘ 


ı gleıch 'A'='a' 
1 ‘Otto’ = ‘Anna 
ı ungleıch (analog) 
ı kleıner Ace 

groasser ‘Otto'»' Anna' 
ı qroeaser oder aleich 


Teat auf Obermenge I1,2,3)>=Ll1) 
(= TRUE) 


ı kleiner oder gleıch 

ı Teat auf Teilmenge 

: 1.462, 3,51 <a IT, 

ı Teat auf Enthaltensein 
ı 33 IN 11..40) 

ı nicht NOT PALSE 


oder 


E22 11,253, 5107 
I RER) 


(=(1,2,4)) 
1*2 1 0=9) 


(= (3)) ı 
7 DIV 3 (=2) | 
7 DIV 3-1), 
17/4 (=0.25)ı 


.o m 200. “= oa az once gg ro vom cc. nd 


(= TRUE) 
(=TRUEB . 


(=FALSE) 


(=TRUE) 
(-TRUE) 
ı und (I>J) AND (J>I) (=FALSE) 
t(A=B) OR tA<>B) (=-TRUBE) 


ı wıe Operand : 
' wıe Operand ; 


ı INTEGER. 
ı INTEGER. 
ı INTEGER. 
ı Mengen 


REAL 
REAL wıe Operand ! 
' 


ı Menge 


ı wie Operand ! 
ı Manga 


ı INTEGER. REAL 


ı Mengen 
ı INTEGER. REAL 


‘ ı 
ı wie Operand ! 
! Mengen ; 


ı Manga 


i 

ı INTEGER 
INTEGER 

I REAL (immer)! 


INTEGER 
INTEGER 
INTEGER, 
ı Skalar. BOOLEAN 
Manae, 

Skalar, 
ı Skalar, 
Skalar, 
ı Skalar. 
ı Manga 


% 
Strıng ' 

Pointer 
String ı 
String ı BOOLEAN 
String ı BOOLEAN 
BOOLEAN 

® 


BOOLEAN 
BOOLEAN 


String ı BOOLEAN 
! BOOLEAN 


ı Skalar, 
ı Menge 
0 
ı Skalar und ı BOOLEAN 
ı Menge 
BOOLEAN 
BOOLEAN 
BOOLEAN 


ı BOOLEAN 
BOOLEAN 
ı BOOLEAN 


Tabelle 4. Operatoren und Ihre Wirkungen 


Erwähnenswert ist die Tatsache, daß 
es in Standard-Pascal keinen Exponen- 
tialoperator (Ahoch B) gibt. Der weiter- 
führende Artikel über Prozeduren und 
Funktionen beschreibt, wie man sich 
diesen Operator selbst definiert. 

Um die Ergebnisse von Berechnun- 
gen und die Inhalte von Variablen am 
Bildschirm darzustellen und auch um 
Eingaben des Benutzers von der Tasta- 
tur zulesen, gibt es in Pascal einige vor- 
definierte Unterprogramme. Diese Pro- 
zeduren werden durch die Angabe 
ihres Namens, den »Prozeduraufrufe 
aktiviert. Das Programm aus Listing 1 
enthält bereits verschiedene Prozedur- 
aufrufe. Mit WRITELN (write line) wird 
zum Beispiel der Cursor am Bildschirm 
auf den Anfang der nächsten Zeile 
gesetzt. Oft muß man einer Prozedur 
weitere Informationen übergeben. 
Diese »Parameter« werden in Klammern 
und durch Kommata getrennt hinter 
dem Prozedurnamen aufgeführt: 
WRITEC'SUMME = ', A+B+C); 

WRITE('! DM') 

Als Parameter für die Prozedur 
WRITE sind neben Textkonstanten 
(Strings in Hochkommata) alle Werte 
der Standard-Typen (REAL, INTEGER, 
CHAR und auch BOOLEAN) zugelas- 
sen. Gerade für Einsteiger bietet sich 
damit die Chance, während des Pro- 
grammablaufs Zwischenergebnisse 
oder Variablen ohne großen Aufwand 
anzuzeigen. Zwei aufeinanderfolgende 
WRITE-Anweisungen drucken ihre 
Werte ohne Zwischenraum direkt hin- 
tereinander. Möchte man nach der Aus- 
gabe einen Zeilenvorschub durchfüh- 
ren, so verwendet man WRITELN statt 








WRITE. Das Gegenstück zu WRITE und 
WRITELN sind die Prozeduren READ 
und READLN. Als Parameter an diese 
Prozeduren übergibt man Variablen, 
denen Werte zugewiesen sind, die von 


der Tastatur eingelesen werden. 
Betrachten wir folgendes Beispiel: 
READ(A,B,C,D) 


Dieser Prozeduraufruf liest vier Werte 
ein. Ob es sich dabei um ganzzahlige 
oder reelle Zahlen oder um Zeichen 
handelt, hängt von der Deklaration der 
Variablen A, B, CundDab. Sind A, B, C 
und D Variablen vom Typ INTEGER, so 
kann der Benutzer folgende Eingaben 
machen: 

1 2 3 4 [RETURN Taste] 
oder auch in mehreren Zeilen: 


1 2 [RETURN Taste] 
3 [RETURN Taste] 
4 [RETURN Taste] 

Mit »READLN (A); READLN(B); 
READLN(C); READLN(D)« wird nach 
dem Einlesen jedes Wertes der Rest 
der Eingabezeile ignoriert, so daß die 
vier Werte in vier Zeilen eingegeben 
werden müssen. 

Später werden Sie sehen, wie man 
eigene Prozeduren und Funktionen in 
Pascal definiert, denen man wie den 
Standard-Funktionen Parameter über- 
geben kann, oder die Ergebnisse 
zurückliefern. Solche benutzerdefinier- 
ten Prozeduren entsprechen also im 
Prinzip den Unterprogrammen (Stich- 
wort GOSUB, RETURN) in Basic. 

Jetzt sind alle einfachen Anweisun- 
gen bekannt, so daß wir mit der Bespre- 
chung der zusammengesetzten Anwei- 
sungen fortfahren können. 





BEGIN (* TAUSCHE A <->» B *) 
H: = A; 
A:= B: 
B:= H 
END 
Listing 4. Ein Beispiel für einen ab- 
geschlossenen Anwelsungsblock 


Eine »Anweisungsfolge« faßt eine 
Reihe von Anweisungen zu einer einzi- 
gen Anweisung zusammen. Listing 4 
zeigt als Beispiel für die allgemeine 
Struktur einer Anweisungsfolge ein kur- 
zes Programmstück, in dem der Inhalt 
der Variablen A und B vertauscht wird. 
Dieses Diagramm soll zeigen, wie die 
kleinen Blöcke (Anweisungen) Zu 
einem großen Block (der zusammenge- 
setzten Anweisung) zusammengefaßt 
werden. Bitte beachten Sie, daß Semi- 
kola zwischen den Anweisungen ste- 
hen und nicht hinter jeder Anweisung. 
Daher muß vor dem abschließenden 
END kein Semikolon stehen. Jedoch ist 
es erlaubt, überflüssige Zeichen in eine 
Anweisungsfolge einzufügen, so daß 
folgende Anweisungsfolgen ebenfalls 
syntaktisch korrekt sind: 

BEGIN H:=A; A:=B; B:=H; END 
und 
BEGIN ;H:=A;; A:=B; B:=H END 

Der Anweisungsteil eines Pascal- 
Programms ist also syntaktisch gese- 
hen eine Anweisungsfolge Da die 
Anweisungen in einer Anweisungsfolge 
immer in derselben Reihenfolge abge- 
arbeitet werden, benötigt man zur 
bedingten Ausführung von Befehlen 
eine zusätzliche zusammengesetzte 
Anweisung. 


Bedingungen 
auswerten mit IF 


In Pascal gibt es zwei Formen der »IF- 
Anweisunge, die in Listing 5 und Listing 
6 dargestellt sind. Die Bilder 3 und 4 
sind die zu diesen Listings passenden 
Struktogramme. Die Bedingung nach 
dem Schlüsselwort IF ist ein beliebiger 
Ausdruck mit dem Ergebnistyp BOO- 
LEAN. Ist der Wert des Ausdruckes 
TRUE, so wird die Anweisung hinter 
dem Schlüsselwort THEN ausgeführt. 
Ist das Ergebnis FALSE, so wird die 
Anweisung nach dem Schlüsselwort 
ELSE (falls vorhanden) ausgeführt. 

Soll hinter THEN oder ELSE mehr als 
eine einzelne Anweisung stehen, müs- 
sen Sie diese Anweisungen mit BEGIN 
und END zu einer zusammengesetzten 
Anweisung »klammern«. Ein Beispiel 
hierfür zeigt Listing 7. Ein häufiger Feh- 
ler besteht darin, vor ELSE ein Semiko- 
lon einzufügen. In diesem Fall erkennt 
der Compiler die einseitige Auswahl 
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IF Bedingung THEN 
Anweisung 


IF Bedınqung THEN 
Anweisung 

ELSE 
Anweisung 


ELSE 





WARITELN (X, 'geflunden’) 





MAXIMUM: = A 





PROGRAM PQFORMEL (INPUT, OUTPUT); 


IP A=X THEN 
WRITELN(X, 


IF A>B THEN 
MAXIMUM: = A 


MAXIMUM: = B 


Listing 5. Die ein- 
fache IF-Anweisung 


"gefunden! ') 


Listing 6. Die IrAnweisung 
mit ELSE-Zwelg 


MAXIMUM: = B 


Bild 3. 
Struktogramm 
der einfachen 

IFAnweisung 


Bild 4. 
Struktogramm 
der IFrAnweisung 
mit ELSE-Zweig 


(4 BERECHNE DIE LOESUNG DER GLEICHUNG X*X + PrX + Q = 0°) 


VAR P,Q.,A,W: REAL; 
BEGIN 
WRITEL'P = '), 
WRITE('Q = '); 
| ee er 
W: = SORIA) - 9; 
IF W<DO THEN 


READLN(P); 
READLNIQ); 


WRITEU'Ea eaxıatıert keine Loeaung' ) 


ELSE 
BEGIN 
WRITELNUE' XI =", A + SQORT(W); 
WRITELN'X2 = ', A - SQRTIW) 
END; 
END. 





PROGRAM MAXIMUM (INPUT, 
VAR MAX : INTEGER:; 
A,B:C: INTEGER,; 
BEGIN 
WRITE('A B C:'); 
IF A>B THEN 
IF AC THEN 
MAX: = A 
ELSE 
MAX: = C 
ELSE 
IP B»C THEN 
MAX: = B 
ELSE 
MAX: = C, 


OUTPUT), 


READLN{A,B,C); 


END. 





(wie in Bild 3) und »beschwert« sich, 
daß er mit dem Schlüsselwort ELSE 
nichts anzufangen weiß. 

Natürlich kann die Anweisung nach 
THEN und ELSE wiederum eine IF- 
Anweisung sein, was in Listing 8 dazu 
verwendet wird, das Maximum der Zah- 
len A, Bund C zu bestimmen. Bild 5 
zeigt die zugehörige Blockstruktur, 
wobei man deutlich erkennt, daß jeder 
der geschachtelten Blöcke nur einen 


Listing 7. 
»Quadratische 
Glelchung« als 

Beispiel für 
die IFTHEN-ELSE- 
Anweisung 


Listing 8. 
»Maximum« - 
ein Beisplel für 
verschachtelte 
IFAbfragen 


(*c- erat hier darf ein Semikolon atehen'! *) 
WRITELN!' Das Maximum von ', A, B, C,' 


ist ',MAX) 


Eingang und einen Ausgang besitzt. Ein 
Beispiel für die Schachtelung der ein- 
seitigen Auswahl bietet Listing 9. Hier 
wird zu einem Tagesdatum das Datum 
des nachfolgenden Tages berechnet, 
wobei zur Vereinfachung angenommen 
wird, daß jeder Monat 30 Tage besitzt. 

Wollen Sie komplexe IF... THEN..ELSE- 
Schachtelungen programmieren, so 
müssen Sie darauf achten, daß der 
Compiler jedes ELSE der letzten IF- 
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Anweisung zuordnet, die noch kein 
ELSE besitzt. Um in diesen Fällen Pro- 
bleme zu vermeiden, empfiehlt es sich, 
die »innen« liegenden IF-Anweisungen 
mit BEGIN und END zu klammern. 

Oftistes erforderlich, in Abhängigkeit 
eines Wertes verschiedene Berech- 
nungen durchzuführen. Für solche 
Fälle bietet sich die »CASE-Anweisung« 
an (Listing 10 und Bild 6). Es wird der 
Ausdruck nach dem Schlüsselwort 
CASE berechnet (der einen skalaren 
Typ besitzen muß) und in Abhängigkeit 
vom Ergebnis zu einer der Anweisun- 
gen hinter den Fallmarken verzweigt. 
Diese Fallmarken müssen jeweils Kon- 
stanten mit dem Typ des Ausdruckes 
hinter CASE sein. Stimmt keine der Fall- 
marken mit dem Ergebnis überein (zum 
Beispiel MONAT = 14), so erfolgt in 
Standard-Pascal ein Programmabbruch er; 
mit Fehlermeldung (viele Compiler en) 
erlauben jedoch auch die Angabe eines WRITELNG' Morgen iat der !, TAG, ' 
ELSE-Zweiges, auch OTHERWISE ge- END. 
nannt, dessen Anweisung in diesem 
Fall ausgeführt wird). 

Ein weiteres Beispiel für die CASE- 
Anweisung istin Listing 11 gegeben. In 
diesem Programm werden von der 


Bild 5. 
Struktogramm 
zum Listing 


PROGRAM TAGESDATUM ( INPUT, OUTPUT), 
CONST TAGE_PRO_MONAT = 30; 
MONATE_PRO_JAHR = 12; 
VAR TAG, MONAT, JAHR: INTEGER; 
BEGIN 


WRITELNU' Heute ist der '‘, TAG, '.‘ 
TAG: = TAG+»1; 
IF TAG» TAGE_PRO_MONAT THEN 
BEGIN 
TAG: =1; MONAT: = MONAT+1; 
IF MONAT>MONATE_PRO_JAHR THEN 


Listing 9. 
»Tagesdatum« - 
ein Beispiel zur 

Schachtelung der ein- 
seltigen Auswahl 


JAHR: = JAHR«1 


ı JAHR); 


CASE Auadruck OF 
Fallmarke, 
Fallmarke, 


Anweisung: 
Anweisung; 


Fallmarke : 
Fallmarke 
Fallmarke, 


Fallmarke : Anweisung 


Tastatur zwei Zahlen gelesen, die in 
Abhängigkeit von einem Zeichen (* . + 
- /) multipliziert, addiert, subtrahiert 
oder dividiert werden. Falls bei der Ver- 
arbeitung kein Fehler aufgetreten ist, 
wird das Ergebnis ausgedruckt. Bemer- 
kenswert an dem Beispiel ist noch die 
Verwendung der booleschen Variablen 
OK, die den Wert FALSE enthält, falls 
ein illegaler Befehl eingegeben oder 
eine Division durch O versucht wurde. 

In Basic würde man bei einem Fehler 
mit GOTO aus dem Inneren der CASE- 
Anweisung springen. Die auf den 
ersten Blick etwas schwerfällig anmu- 
tende Lösung mit der booleschen Varia- 
blen sorgt jedoch dafür, daß die CASE- 
Anweisung keinen zusätzlichen 
»Fehler-Ausgang« besitzt, der die 
Blockstruktur der zusammengesetzten 
Anweisung verletzen würde. Gerade 
bei großen Programmen sind nämlich 
Sonderbehandlungen mit Sprüngen 
quer durch den gesamten Programm- 
text eine schwer kontrollierbare Fehler- 
quelle. 

Als kleiner Einschub ist in Listing 12 
eine alternative Lösung der Aufgabe in 
dem Programm in Listing 10 gegeben. 
Sie nutzt die Tatsache, daß man in Pas- 
cal auch mit Mengen wie in der Men- 
genlehre in der Grundschule rechnen 
kann. Eckige Klammern ersetzen hier- 
bei die geschweiften Klammern der 
Mathematik. 

[1,2,3,4] und [1..4] bezeichnen die- 
selbe Menge, nämlich die Zahlen von 1 
bis 4. Hingegen bezeichnen [] aber 
auch [3..1] die leere Menge, die keine 
Zahl enthält. 
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END 


CASE MONAT OF 
13794 228.10.72: 
4,6,9,11 i 
2 : BEGIN 


SCHALTJAHR: «= (JAHR MOD &) = 0) AND 
(JAHR MOD 100)«<>0) OR 
(JAHR MOD 400) =0); 
IF SCHALTJAHR THEN TAGE_PRO_MONAT: = 29 
ELSE TAGE_PRO_PONAT: =» 28 


END, 
END; (* CASE“) 


Mit X IN [1,3,9,27) 

wird geprüft, ob die Zahl X in der Menge 
der Dreierpotenzenbis 27 enthalten ist. 
In der Tabelle 4 auf Seite 30 sind einige 
dieser Operationen mit Mengen darge- 
stellt! (Vereinigungsmenge, Schnitt- 


menge, Differenzmenge, Test auf Teil- 
mengen, Test auf Gleichheit). 

Bei der Besprechung der zusammen- 
gesetzten Anweisungen haben wir in 
der Übersicht (Bild 2) die »Wiederho- 
lungsanweisungen« erreicht. Es gibt in 
Pascal drei verschiedene zusammen- 





TAGE_PRO_MONAT: = 31; 
: TAGE_PRO_MONAT: = 30; 


Listing 10. 
Allgemeine 
Form und Bei- 
spiel zur CASE- 
Anweisung 


CASE Ausdruck OF 


Struktogramm 
der CASE- 
Anwelsung 





gesetzte Anweisungen, die Wiederho- 
lungen definieren, von denen sich jede 
für spezielle Anwendungsfälle beson- 
ders eignet. 

Möchte man eine Anweisung so oft 
ausführen, bis eine gewisse Bedingung 
erfüllt wird, bietet sich die »REPEAT- 
Anweisung« (Listing 13) an. Zwischen 
den Schlüsselwörtern REPEAT und 
UNTIL steht eine beliebige Folge von 
Anweisungen, die Semikola trennen. 
Am Ende der Ausführung dieser Anwei- 
sungen wird der Ausdruck hinter dem 





PROGRAM MINICOMPUTER ( INPUT, OUTPUT), 


ı ERG: REAL, 
: BOOLEAN; 





























WRITELN!' Geben Sie ein Operationszeichen (+,-,*,.,/) und zwei Zahlen ein!'); 


READLNUCH, A, B); 
OK: = TRUE: 
CASE CH OP 
: ERG:= A * B; 
: IP B= O0 THEN 
BEGIN OK: = FALSE, 
WRITELN(' Fehler: 
END 
ELSE 
ERG: = A B; 
: ERG: = A + 
: ERG: = A - 
BEGIN 
OK: = PALSE: 


/ 
B; 
8; 


WRITELN( ' Die Operation ' 


END; 
END; (* von CASE *) 
IP OK THEN 
WRITELN(' Ergebnia: ', ERG) 


END. 


(*2 noch ist kein Fehler aufgetreten *) 


Division durch Null!'’) 


' ist nicht moeglich!') 


Listing 11. Ein »Minicomputer« als welteres Beispiel für CASE 


IP MONAT IN (1,3,5,7,8,10,12) THEN TAGE_PRO_MONAT: = 31 ELSE 


IF MONAT IN (4,6,9,11) 


Listing 12. ELSE 
Das Beispiel aus 
Listing 9, program- 
miert unter 
Verwendung 


von Mengen END: 


REPEAT 
Anweisung; 
Anweisung, 


THEN TAGE_PRO_MONAT: = 30 ELSE 


BEGIN (* hier ist MONAT =» 2 *) 
SCHALTJAHR: = (JAHR MOD 4) = DO) AND 
tC JAHR MOD 100)<>0) OR 
(JAHR MOD 400) =0),; 
IP SCHALTJAHR THEN TAGE_PRO_MONAT: = 29 
ELSE TAGE_PRO_MONAT: = 28 


REPEAT 
WRITELNU' Alles klar? (Ja oder Nein)'); 
READICH) 


UNTIL CH IN L'J','3j','N ,'’n’) 


Anweisung 
UNTIL Bedingung 


Listing 13. Allgemeine Form und Beispiel für REPEAT... UNTIL 


PROGRAMM WURZEL (INPUT, 
CONST EPS = 1, 0E-7; 
VAR X, Y,Z: REAL; 

BEGIN 
WRITEL' Die Quadratwurzel aus '); 
IF X<O THEN 

WRITELN(' 
ELSE 
BEGIN 0" 1. 
Y:.= 2; 
REPEAT 
z:= Y Yım'yay 
UNTIL Y»X; 


oUTPUT); 


ist keine reelle Zah)') 


(* 2. 
REPEAT 
ml 2% 
2: 0.5 *% (Y + X/% 
UNTIL ABS(Y-Z)c= EBPS, 


WRITELNE' ist ', Z) 
D; 


(* Genauigkeit: 


mindestens 7 Nachkommasatellen*) 


READ ( X), 


einen Startwert Z berechnen *) 


Jetzt folgt die eigentliche Berechnung: *) 


(2 dis Abweichung kleiner als Genauigkeit *) 


Listing 14. Berechnung von Quadratwurzeln unter Verwendung von 
REPEAT...UNTIL-Schielfen 


Schlüsselwort UNTIL ausgewertet. Er 
liefert einen booleschen Wert (TRUE 
oder FALSE). Ist die Abbruchbedin- 
gung nicht erfüllt, so wird die Anwei- 
sungsfolge wiederholt. In dem Beispiel 
werden also so lange Zeichen von der 
Tastatur eingelesen, bis der Benutzer 
ein »J« oder ein »N« eingegeben hat. Bei 
näherem Hinsehen können Sie also 
feststellen, daß Mengenoperationen 








auch auf Mengen von Zeichen anwend- 
bar sind: 
CH IN [ui a 'N') 

Eine REPEAT-Schleife benutzt man 
bei Wiederholungen, die in der 


Abbruchbedingung einen Wert benöti- 
gen, der erst im Inneren der Schleife 
ermittelt wird. Als Beispiel ist in Listing 
14 die Berechnung der Quadratwurzel 
für eine reelle Zahl X durch eine Itera- 





tion aufgeführt. Dieses Programm 
berechnet die Wurzel in zwei Schritten, 
die jeweils eine REPEAT-Schleife benö- 
tigen. Im ersten Schritt wird die kleinste 
Zweierpotenz (2,4,8,16....) Z berech- 
net, die quadriert gerade größer als X 
ist. Anschließend wird in der zweiten 
REPEAT-Schleife dieser Startwert Z 
schrittweise modifiziert, bis die Diffe- 
renz zwischen zwei Iterationswerten 
kleiner als die gewünschte Genauigkeit 
EPS ist. 

Viel häufiger als die REPEAT-Anwei- 
sung findet die WHILE-Anweisung Ver- 
wendung (Listing 15 und Bild 8). Hier 
wird die Bedingung nach dem Wortsym- 
bol WHILE vor der Ausführung der 
Anweisung nach DO geprüft. Damit 
besteht insbesondere die Möglichkeit, 
daß diese Anweisung kein einziges Mal 
ausgeführt wird, falls nämlich die Bedin- 
gung bereits beim Eintritt in die Schleife 
den Wert FALSE liefert. 

Soll die WHILE-Schleife, was wohl in 
der Mehrzahl der Fälle zutreffen wird, 
mehrere Anweisungen umfassen, SO 
muß man diese zu einer Anweisungs- 
folge mit BEGIN und END klammern. Ein 
kleines, aber besonders schönes Bei- 
spiel für die Funktionsweise der 
WHILE-Schleife zeigt Listing 16. Hier 
wird der Wert E = NK für natürliche 
Zahlen N und K berechnet. K gibt also 
an, wie oft N mit sich selbst multipliziert 
werden muß, um E zu erhalten. Daher 
wird im Programm die Zählvariable | ver- 
wendet, die von K abwärts gegen O 
zählt. Das Beispiel ist deshalb so ideal, 
da durch die Eigenschaft der WHILE- 
Anweisung, eine Prüfung am Beginn 
der Schleife durchzuführen, auch die 
Sonderfälle korrekt behandelt werden. 
In der Mathematik gilt nämlich: 

No = 1 für alle N 
OK = 0 für alle K#0O 

Durch eine geeignete Wahl der Wie- 
derholungsanweisung kann man sich 
also viele Sonderbehandlungen mit IF- 
Anweisungen ersparen. 

Zum Vergleich ist in Listing 17 je eine 
WHILE- und eine REPEAT-Schleife 
angegeben, die alle Zahlen zwischen A 
und B druckt. Wenn Sie mit diesem Pro- 
gramm experimentieren, werden Sie 
feststellen, daß der einzige Uhnter- 
schied bei der Ausführung darin 
besteht, daß in der REPEAT-Schleife für 
A>Bdie Zahl A gedruckt wird, während 
die WHILE-Schleife in diesem Fall nicht 
in Funktion tritt. 

Für eine Anwendung wie in Listing 17 
wird man jedoch normalerweise die 
dritte Variante der Wiederholungsan- 
weisungen in Pascal benutzen: Die 
FOR-Schleife (Listing 18) findet überall 
dort Anwendung, wo die Anzahl der 
Schleifendurchläufe vor dem Beginn 
der Schleife bereits bekannt ist. Den 
genauen Ablauf der Ausführung soll fol- 
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gendes Beispiel zeigen: 

FOR I:= A TO B DO WRITE(I) 

1. Berechne A und weise den Wert der 
Variablen I zu. 

2. Berechne B und speichere den Wert 
in einer temporären (unsichtbaren) 
Variablen X 

3. IstIl>X, so beende die Schleife 

4. Sonst drucke die Zahl I 

5. Erhöhe | um 1 und weiter bei 3 
Die Variable I muß einen skalaren Typ 

besitzen (also zum Beispiel CHAR, aber 

nicht REAL) und mit dem Ergebnistyp 
von A und B verträglich sein. Aus dem 
obigen Schema (1..6) folgt außerdem, 
daß für A>B wie bei der WHILE- 

Schleife keine Zahl gedruckt wird. Man 

könnte in der Schleife die Variable B 

auch beliebig verändern, ohne die 

obere Grenze der Zählvariablen (die ja 
in einer temporären Variablen gespei- 
chert wurde) zu beeinflussen. 


Um rückwärts zu zählen, besteht 
noch die Möglichkeit, eine Variante der 
FOR-Schleife zu verwenden: 

FOR I:= A DOWNTO B DO WRITE(I) 

Die obigen Regeln gelten für diese 
Schleife analog. Mit der FOR-Schleife 
kann man nur in Einerschritten aufwärts 
oder abwärts zählen, andere Schrittwei- 
ten müssen mit einer WHILE-Schleife 
explizit programmiert werden. im Bei- 
spiel aus Listing 19 wird ein Winkel PHI 
in Schritten von DELTA hochgezählt und 
dabei eine Funktion am Bildschirm 
»gezeichnet«. 

Wenn Sie zu der Übersicht in Bild 2 
zurückblättern, werden Sie erkennen, 
daß wir mit der Vorstellung der FOR- 
Schleife praktisch alle Anweisungen in 
Pascal besprochen haben. Zwei funda- 
mentale Eigenschaften von Pascal wur- 
den jedoch noch ausgespart. 

(1) Zusammengesetzte Typen er- 
möglichen es, nicht nur mit einzelnen 
Zahlen und Zeichen, sondern sogar mit 
hierarchisch aufgebauten und auch 
veränderlichen Datenstrukturen zu 
arbeiten. 

(2) Neben den bereits vorgestellten 
Standard-Prozeduren READ, READLN, 
WRITE und WRITELN gibt es noch eine 
Vielzahl an vordefinierten Prozeduren 
und Funktionen, die in jeder Implemen- 
tation der Sprache Pascal vorhanden 
sind. Viel bemerkenswerter ist jedoch 
die Möglichkeit, beliebige Teile eines 
Programmes als Prozeduren und Funk- 
tionen zu definieren, die über 
bestimmte Schnittstellen mit ihrer 
»Umwelt« (Prozeduren oder Hauptpro- 
gramm) kommunizieren können. 

In den folgenden Beiträgen werden 
diese beiden wichtigen und interessan- 
ten Gebiete ausführlich behandelt, 
wobei gleichzeitig das bisherige Wis- 
sen über die einfachen Typen und die 
Anweisungen in Pascal angewandt und 
vertieft wird. (Florian Matthes/ev) 


I A 


WHILE Bedingung DO 
Anweiaung 


Bild 7. 
Struktogramm 
der REPEAT- 
Anweisung 


WHILE X>=1.0 DO 
\:= X / 2.0; 


Listing 15. Allgemeine Form und Beispiel für die WHILE...DO-Schleite 


X“ = X/20 


PROGRAM HOCH ( INPUT, OUTPUT), 
VAR I,N,E,K: INTEGER; 
BEGIN 
READLNUN,K); 
IF (N<O) OR (K«<0) THEN 
WRITELNU' ungueltige Eingabe!') 
ELSE 
BEGIN 
E: =1; I:=K; 
WHHILE I»>Oo DO 
BEGIN 
E:= EAN; 
Il:- 1-1 
END; 
WHRITELNIN, ' 
END 
END. 


Listing 16. Ein Demo-Programm unter 
Verwendung der WHILE...DO-Schleife 


FOR Variable: » Ausdruck TO Ausdruck DO 


Anweisung 


—-BUd8. 
Struktogramm 
der WHILE- 
Anweisung 


PROGRAM ZUM_VERGLEICH (INPUT, OUTPUT); 
VAR I, A, B: INTEGER; 
BEGIN 
READLN(A,B); 
WRITE(' Mit REPEAT:'); 
I: “A; 
REPEAT 
WRITE(UI); 
I: I+1 
UNTIL I»B; 
WRITELN; 


WRITE(' Mit WHILE:'); 
I: A; 
WHILE I<c=B DO 

BEGIN 


WRITE(TD); Listing 17. 
Iı=e Ie1 


Ei Ein Programm zum 
WRITELN Vergleich zwischen 
END WHILE und REPEAT 


FOR I:= 1 TO 1000 DO 
SUMME: = SUMME + 1 / 1 


FOR Variable: = Ausdruck DOWNTO Ausdruck DO FOR I:= 1000 DOWNTO 1 DO 


Anweisung 


SUMME: = SUMME + 1 / 1 


Listing 18. Allgemeine Form und Belsplel für die FOR-Schlelfe 


PROGRAM SCHWINGUNG (INPUT, OUTPUT). 


(® ZEICHE DIE FUNKTION FÜLPHI) = EXPC-PHI/PI) “ SIN (PHI) %) 


CONST P] = 3. 1415926, 
MAXZEILEN = 40; 
MITTE = 40; 

VAR PHI,Y, DELTA : REAL; 
SPALTE, ZEILE: INTEGER;, 


BEGIN 
DELTA: = 6*PI / MAIZEILEN 
FOR ZEILE: = O TO MAXZEILEN DO 
BEGIN 
PHI: = DELTA * ZEILE; 


(%* Laenge der Ausgabe in Zeilen k) 
(*2 Mitte eines 80-2eichen Bildschırms*) 


(* AKTUELLER WINKEL *) 
Y := EXP(U-PHI/PI)*SINOPHI),; 


SPALTE: = MITTE + ROUND: MITTE * Y); 


WKRITELNE'#': 
END: 
END. 


SPALTE); 


(* drucke Stern in Spalte SPALTE *) 


Listing 19. Schwingungs-Berechnung mit FOR-Schlelte 

















Mit diesem Artikel steigen wir 
voll in die eigentliche Program- 
mierung mit Pascal ein. Prozedu- 
ren, Funktionen und Datentypen 
heißen die Stichworte. 


ie steigt man am einfach- 
sten in die Programmierung 
ein? Nun, vermutlich mit 
einem Programm zum Ausprobieren 
und Experimentieren. Das Beispielpro- 
gramm in Listing 1 liest einen Text von 
der Tastatur ein und zeichnet ein einfa- 
ches Balkendiagramm wie in Bild 1, das 
die Häufigkeit jedes Zeichens angibt. 
Wir möchten Sie bitten, vor dem Weiter- 
lesen einen längeren Blick auf das 
Listing zu werfen, um einerseits die 
bereits im einführenden Artikel bespro- 
chenen Sprachelemente (zum Beispiel 
die FOR-Schleife) zu verstehen und 
andererseits einen Überblick über die 
neuen Probleme zu bekommen. 

Der Kern des Programms besteht 
darin, für jeden Buchstaben einen Zäh- 
ler zu führen, der bei jedem Auftreten 
des Buchstabens im eingelesenen Text 
erhöht wird. Natürlich möchte man nicht 
für jeden Buchstaben eine Zählvariable 
deklarieren und dann in einer riesigen 
CASE-Anweisung jeden einzelnen Zäh- 
ler erhöhen. Statt dessen vereinbart 
man ein ARRAY (Feld, Tabelle) von Zäh- 
lern: 

VAR Z: ARRAY ['0'..'2'] 
OF INTEGER; 

Ein Array ist eine Variable, über deren 
Namen mehrere Werte des gleichen 
Typs angesprochen werden. Das Array 
Z besitzt für jedes Zeichen zwischen 
»0« und »Z« einen Wert vom Typ INTE- 
GER. Auf dieeinzelnen Werte greiftman 
durch Nennung des Array-Namens, 
gefolgt von einem Index in eckigen 
Klammern, zu: 

Z20r = 13; 
WRITELN (Z['X']); 
Z[CH]:= Z[CH] + 1 

Die letzte Zuweisung Zeigt eine wich- 
tige Eigenschaft von Arrays: Man kann 
als Index eine Variable (hier CH) oder 
einen beliebig komplexen Ausdruck 
verwenden. Für Basic-Programmierer 
ungewohnt ist die Eigenschaft von Pas- 
cal, nicht nur Zahlen, sondern beliebige 
geforderte Datentypen als Index zuzu- 
lassen. 

Um alle Zähler in Z zurückzusetzen, 
kann man also folgende FOR-Schleife 
verwenden: 

EORSCHs= "0" TO !2" DO. ZIEH] :=70; 

Nach diesem speziellen Beispiel sol- 


AT ZY> 
zw; /) WU n 
r 








len Sie auch die allgemeinen Regeln für 
Arrays in Pascal kennenlernen: 

1. Ein Array muß wie jede andere 
Variable im Variablendeklarationsteil 
vereinbart werden. 

2. Ein Array ist ein zusammengesetz- 


PROGRAM HAEUFIGKEIT (INPUT, OUTPUT), 








Programmieren mit Pascal 


ter Typ, der durch zwei Typen beschrie- 
ben wird: Den skalaren Indextyp und 
den beliebig wählbaren Elementtyp. Z 
hat also den Indextyp »’0' .. Z’« und den 
Elementtyp INTEGER. 

3. Beim Indizieren muß der Typ des 


(#4 STATISTIK DER BUCHSTABENHAEUFIGKEIT IN EINEM TEXT *) 


CONST VON = '0';, BIS = '7',; 
ENDEZEICHEN = '@'; 
BILDSCHIRMBREITE = 80; 


TYPE 
VAR Z : ZAEHLERFELD,. 


PROCEDURE LOESCHEN{ VAR A: 
(2 ALLE ZAEHLER ZURUECKSETZEN *) 


VAR CH: CHAR: 
BEGIN 

FOR CH: = VON TO BIS DO AUCH): =-0O 
END, (* LOESCHEN *) 


PROCEDURE ZAEHLEN (VAR A: 


ZAEHLERPELD); 


ZAEHLERFELD); 


(* 80 ZEICHEN PRO 7EILE AM BILDSCHIRM *) 


ZAEHLERFELD = ARRAYIVON.. BIS) OF INTEGER.: 


Euesesarsuesen BEGINN DER PROZEDUREN *) 


(“= TEXT VON DER TASTATUR BIS ENDEZEICHEN EINLESEN UND ZAEHLER IN A ERHOEHEN *) 


VAR CH: CHAR, 
BEGIN 
WRITELNU' GEBEN SIE JETZT BITTE EINEN TEXT EIN, DER MIT ', ENDEZEICHEN, 
" ENDET‘); 
REPEAT 
READU CH), 
IP CH IN I VON. . BIS) THEN 
AICHI:= AICHI + 1, 
UNTIL CH =» ENDEZEICHEN, 
WRITELN 
END, (* ZAEHLEN *) 
PROCEDURE STATISTIK (A: ZAEHLERFPELD); 
(* DRUCKE FUER JEDEN BUCHSTABEN EINEN BALKEN. DER DIE HAEUFIGKEIT DES =) 


(* ZEICHENS ANGIBT. 


VAR CH : CHAR; 
MAX : INTEGER; 
HOEHE: INTEGER; 


PROCEDURE BALKEN (N: INTEGER); 


*) 


(*2 ZEICHNE EINEN HORIZONTALEN BALKEN MIT N ZEICHEN *) 


BEGIN 
WHILE NO DO 
BEGIN 
WRITE('U'D,; 
END; 
WRITELN; 
END: (*% BALKEN *) 


N: = N-1 


BEGIN (* HIER BEGINNT DER ANWEISUNGSTEIL DER PROZEDUR STATISTIK *) 
WRITELN! ' STATISTIK DER BUCHSTABENHAEUFIGKEITEN: '); 


(®= BESTIMME ZUNAECHST DEN MAXIMALEN ZAEHLERSTAND. *) 


MAX. = AI VONI; 
FOR CH: = SUCCE: VON) TO BIS DO 
IF AI CHI>MAX THEN MAX: = AUCH): 
(* ZEICHEN JETZT DIE BALKXEN: *) 
FOR CH: =VON TO BIS DO 
BEGIN 
WRITEILCH, - % 4.03% 


HOEHE: = ROUND( ALCHI “* (BILDSCHIRMBREITE-3) /MAX).: 
(* DAMIT NIMMT DER HOEBCHSTE BALKEN DIE GESAMTE BILDSCHIRMBREITE EIN “) 


BALKEN ( HOEHE): 
END: 
END; (* STATISTIR % 


BEGIN 
LOESCHEN (2); 
ZAEHLEN (7), 
STATISTIK(2Z), 
END. 


Listing 1. Programm »Häufigkelt« 
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Ausdruckes in eckigen Klammern mit 
dem bei der Deklaration vereinbarten 
Indextyp verträglich sein. »Z[5]:=0« 
wäre nach der oben angegebenen De- 
klaration von Z nicht zulässig, da die 
Zahl 5 kein Zeichen ist. Außerdem ist 
auch die Zuweisung »Z['!'];=3« nicht 
erlaubt, da das Zeichen '! nicht im Inter- 
vall »O« bis »Z« liegt. 

Wenn Sie die Deklaration der Varia- 
blen Zim Beispiel 24 untersuchen, wer- 
den Sie feststellen, daß diese in drei 
Schritten erfolgte: Zunächst wurden 
zwei Konstanten 
CONST VON='!O'; BIS='Z'; 
eingeführt. Mit diesen beiden Konstan- 
ten erfolgte im nächsten Schritt eine 
Typendeklaration: 

TYPE ZAEHLERFELD = ARRAY 
[VON .. BIS] OF INTEGER; 

Nach dem Schlüsselwort TYPE wird 
ein Name genannt, dem nach einem 
Gleichheitszeichen eine Typangabe 
folgt. Im dritten Schritt kann in der Varia- 
blendeklaration der Typbezeichner 
ZAEHLERFELD benutzt werden, um 
ein Array mit den Indexgrenzen VON 
und BIS und dem Elementtyp INTEGER 
zu definieren. 

VAR A,B,FELD: ZAEHLERFELD; 
ZAEHLER: ZAEHLERFELD; 

Neben der Einsparung von Schreib- 
arbeit erhöhen Typnamen die Lesbar- 
keit von Programmen. Listing 2 zeigt 
einige Typdeklarationen und anschlie- 
Bend die Anwendung dieser Typnamen 
in weiteren Typ- und Variablendeklara- 
tionen. 

Jetzt werden Sie wahrscheinlich alle 
Anweisungen mit den Array-Variablen A 
und Z verstehen. Neben der Verwen- 
dung von Arrays und Typnamen enthält 
das Programm »Häufigkeite« (Listing 1) 
noch ein weiteres neues Sprachele- 
ment von Pascal. Sie finden in dem Pro- 
gramm viermal das Schlüsselwort PRO- 
CEDURE, das eine Prozedurdeklara- 
tion einleitet. Nach diesem Schlüssel- 
wort folgt der Name der Prozedur, über 
den die Prozedur aufgerufen wird. Der 
eigentliche Anweisungsteil des Pro- 
grammes (nach dem letzten BEGIN) 
besteht also nur aus den folgenden drei 
Prozeduraufrufen: 

LOESCHEN (Z); 
ZAEHLEN (Z); 
STATISIIK(Z); 

Das Programm besteht also aus drei 
voneinander unabhängigen Programm- 
teilen zum Rücksetzen der Zähler, zum 
Einlesen des Textes und der Ausgabe 
der Statistik. Jeder Prozedur wird in 
Klammern das Array Z als aktueller 
Parameter übergeben. 

Wie sieht aber eine Prozedurdeklara- 
tion aus? Prozedurdeklarationen müs- 
sen am Ende des Vereinbarungsteils 
(also hinter den Konstanten, Typ- und 
Variablendeklarationen) stehen. Die 
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Bild 1. Ergebnisausdruck des Programms »Häufigkelt« (Ausschnitt) 


Prozedurdeklaration selbst besteht aus 
drei Teilen: 

1. Der Prozedurkopf enthältnach dem 
Namen der Prozdur bei Bedarf in Klam- 
mern eine Liste der formalen Parame- 
ter: 

PROCEDURE LOESCHE 
(VAR A: ZAEHLFELD); 

Die Prozedur LOESCHEN muß also 
mit einer Variablen vom Typ ZAEHLER- 
FELD aufgerufen werden. Die Variable 
besitzt innerhalb der Prozedur den 
Namen A. Beinhaltet eine Prozedur 
mehrere Parameter, so müssen die 
aktuellen Parameter in der Reihenfolge 
der formalen Parameter angegeben 
werden. Der Aufbau der Parameterliste 
kommt später genauer zur Sprache. 

2. Nach dem Prozedurkopf folgen alle 
Deklarationen, wie sie auch beim 
Hauptprogramm möglich sind. Das 
heißt, daß eine Prozedur wie ein eigen- 
ständiges Programm mit eigenen Kon- 
stanten, Typen, Variablen und wie- 
derum Prozeduren ausgestattet sein 
kann. So besitzt zum Beispiel die Proze- 
dur LOESCHEN eine Variable CH vom 
Typ CHAR, die nur innerhalb der Proze- 
dur gültig ist, und damit insbesondere 
nicht von Anweisungen im Hauptpro- 
gramm oder in anderen Prozeduren ver- 
ändert werden kann. Die Prozedur STA- 
TISTIK enthält selbst eine Prozedurde- 
klaration (BALKEN). 

3. Schließlich folgt zwischen den 
Schlüsselworten BEGIN und END der 
Anweisungsteil der Prozedur. Es ist 
üblich, nach dem letzten END in Kom- 
mentarklammern den Namen der Pro- 
zedur zu nennen, die an dieser Stelle 
endet, damit man bei großen Program- 
men jeden Anweisungsteil leicht dem 
Prozedurkopf zuordnen kann. 

Im Beispielprogramm »Häufigkeit« 
werden also nacheinander die Anwei- 
sungstele der Prozeduren LOE- 
SCHEN, LESEN und STATISTIK ausge- 
führt, wodurch nacheinander die Zähler 
Z gelöscht, erhöht und schließlich gra- 
fisch dargestellt werden. 

Jetzt iistes an der Zeit, daß Sie etwas 
mehr über die Sichtbarkeitsregeln von 
Namen in Pascal erfahren. Sie legen 
fest, welche Namen in einer Prozedur 








PROGRAM TYPEN ( INPUT, OUTPUT); 


CONST ANZAHL_AUFGABEN = 400, 


TYPE GROSSE _ZAHL = REAL, 
RLEINE_ZAHL = INTEGER;: 
ZEICHEN = CHAR: 
ERGEBNIS = BOOLEAN; 
EINKONMEN = ARRAY 1 1970..1986) 
OF GROSSE_ZAHL; 
ZEILE = ARRAY (1..801 OF 
CHAR: 
TESTBOGEN = ARRAY [1.. ANZAHL_ 
AUFGABEN) OF ERGEBNIS.; 


VAR A,B,.C 
CH1,CH2 
UEBERSCHRIPT 
DEUTSCHLAND, 
MEDIZINERTEST 


: GROSSE_ZAHL: 

: ZEICHEN; 

: ZEILE. 
ENGLAND : EINROMMEN: 

: TESTBOGEN; 


BEGIN 
END. 


Listing 2. Beispiele für 
Typdeklarationen 





zur Anwendung kommen. Zunächst 
noch eine Definition: Ein Block ist eine 
Prozedur oder das Hauptprogramm 
selbst. 

In einem Block sind alle die Namen 
sichtbar (also gültig), die innerhalb die- 
ses Blockes deklariert wurden. Außer- 
dem noch diejenigen, die in einem 
»umfassenden« Block deklariert wur- 
den. Wurde ein Name sowohl in einem 
umgebenden Block als auch im Block 
selbst deklariert, so ist nur die innere 
Deklaration sichtbar. 

Variablen, die in einer Prozedur fest- 
gelegt wurden, heißen lokale Variablen 
dieser Prozedur. Benutzt jedoch eine 
Prozedur Variablen, die in einem umge- 
benden Block deklariert wurden, so 
nennt man diese global. 

Diese Regeln soll das Programm 
»Sichtbarkeit«e in Listing 3 verdeutli- 
chen. Zur Unterstützung ist in Bild 2 die 
Schachtelung der Blöcke grafisch dar- 
gestellt. Die Prozedur P1 besitzt drei 
lokale Namen, nämlich den Parameter 
V1, die Konstante K4 und die Variable V 
2. Durch die Deklaration des Namens 
»V1:CHAR« in P1 ist der Name »V1: Ti« 
aus dem Hauptprogramm in P1 nicht 
sichtbar. Andererseits sind die Namen 
von P1 nicht in P2, P21 oder dem 
Hauptprogramm sichtbar. 

Prozedur P21 zeigt auch, daß Namen 
über mehrere Blöcke hinweg sichtbar 
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sind: So in P21 der Name K2 aus dem 
Hauptprogramm, da P21 in der Proze- 
dur P2 enthalten ist, die selbst zum 
Hauptprogramm gehört. 

Für die Praxis bedeutet dies, daß man 
in einer Prozedur Namen ohne Rück- 
sicht auf die »Umgebung« deklarieren 
kann. Tatsächlich versucht man sogar, 
nur in Ausnahmefällen auf globale Varia- 
blen zuzugreifen und alle Werte als 
Parameter an die Prozeduren zu über- 
geben. Damit kann man später die Pro- 
zedur in einem völlig anderen Pro- 
gramm verwenden, ohne daß Namens- 
konflikte auftreten. 

Nach diesem etwas theoretischen 
Abschnitt soll eine Reihe von Beispie- 
len diese Regeln illustrieren und außer- 
dem verschiedene Typen von Parame- 
tern vorstellen. Das erste Beispiel 
(Listing 4) zeigt eine Prozedur, die eine 
INTEGER-Zahl als eine Hexadezimal- 
Zahl anzeigt. Zur Anzeige wird die vier- 
stellige Zahl zunächst in zwei Byte zer- 
legt, deren beide Hexadezimal-Stellen 
schließlich mit der Prozedur PRINTDI- 
GIT angezeigt werden. Klar zu erken- 
nen ist hier die Schachtelung der drei 
Prozeduren, wobei jede einen Parame- 
ter X vom Typ INTEGER besitzt. 

Die Prozedur SWAP in Listing 5 
besitzt zwei Parameter des Typs INTE- 


PROGRAM SICHTBARKEIT (OUTPUT): 
CONST K1 = 3; K2 = 'C',; 
TYPE Ti = INTEGER, T2 = REAL; 
VAR v1: T1; 
PROCEDURE P1 (VAR Vi: CHAR), 


CONST K4 = 23.4; . 
VAR V2 : INTEGER; 


BEGIN 


(* HIER SIND POLGENDE NAMEN SICHTBAR 


CONST Ki = 3, K2 = 'C', 
TYPE Ti = INTEGER: T2 = REAL, 
VAR V1 : CHAR; 
v2 : INTEGER, ”) 
END; (* P1 %) 
PROCEDURE P2, 
VAR V2: REAL; 


PROCEDURE P21i; 
CONST Ki = ' 2',; 


BEGIN 


GER. Die Prozedur tauscht den Inhalt 
dieser beiden Parameter aus. 

Listing 4 und 5 zeigen die beiden in 
Pascal vorhandenen Typen von Para- 
metern. Wird ein formaler Parameter im 
Prozedurkopf mit dem Schlüsselwort 
VAR gekennzeichnet, so nennt man ihn 
einen Variablenparameter. In diesem 
Fall muß der aktuelle Parameter eine 
Variable des angegebenen Typs sein. 
Der Aufruf 
SWAP(5,6) 
wäre also nicht zulässig. Innerhalb der 
Prozedur bewirkt jede Zuweisung an 
einen Variablenparameter eine Ände- 
rung des Wertes der Variablen, die als 
aktueller Parameter übergeben wurde. 
Wurde also zum Beispiel die Prozedur 
SWAP mit den Variablen X und Y aufge- 
rufen, so wird durch die Zuweisung 
A:=B tatsächlich der Variablen X der 
Wert der Variablen Y zugewiesen. 

Die Parameter der Prozedur PRINT- 
HEX sind hingegen Wertparameter. 
Beim Aufruf einer solchen Prozedur 
werden die aktuellen Parameter, die 
nicht unbedingt Variablen sein müssen, 
in lokalen Variablen der Prozedur 
gespeichert. Bei der Ausführung der 
Prozedur wird nur auf diese Kopie des 
aktuellen Parameters zugegriffen, so 
daß insbesondere eine Zuweisung an 


"ROGRAM WERTPARAMETER ( INPUT, 


VAR X: 


PROCEDURE PRINTHEX (X: 


INTEGER; 


einen Wertparameter niemals eine 
Änderung im aufrufenden Block 
bewirkt. 

Ist Ihnen der Unterschied noch nicht 
völlig klar, so sollten Sie das Schlüssel- 
wort VAR aus dem Prozedurkopf von 
SWAP löschen und das Programm neu 
compilieren. Nach der Rückkehr aus 
der Prozedur werden dann die Werte 
der Variablen X und Y im Hauptpro- 
gramm unverändert sein. 

Jeder Parameter wird wie eine Varia- 
ble mit der Angabe seines Typs nach 
einem Doppelpunkt deklariert. Dabei ist 


PROGRAM VARIABLENPARAMETER (INPUT, 
OUTPUT); 
VAR X,Y: 


INTEGER, 


PROCEDURE SWAP (VAR A,B: INTEGER); 
(* TAUSCHE DEN INHALT VON A UND B *) 
VAR H: INTEGER: 
BEGIN 
H: =A; 
END: 


A:=B; B: =H 
(* SWAP *) 


BEGIN 
X: 3, Yı= 4; 
SWAP ( X, Y; 
WRITELN (X, Y); 
END 


Listing 5. Ein Beispiel für die 
Verwendung von Wert-Parametern 





OUTPUT). 


INTEGER),; 


(#* DRUCKE GANZE ZAHL X ALS HEXADEZIMALZAHL IM FORMAT 


SIXXXı 


PROCEDURE PRINTBYTE (X: 


INTEGER): 


(* DRUCKE ZAHL ZWISCHEN O UND 255 ALS BYTE IM FORMAT 


X “) 


PRINTDIGIT (X: 


INTEGER),; 


(* DRUCKE HEXADEZIMALE ZIFPER *) 


BEGIN 


IP X>9 THEN 


WRITE(CHR(UX-10+ORDE' A'))) 


ELSE 


WRITE 


END, (* PRINTDIGIT *) 


BEGIN 


PRINTDIGIT(X DIV 16); 
PRINTDIGIT(UX MOD 16); 


END; 
® 


(*2 HIER SIND FOLGENDE NAMEN SICHTBAR: 


CONST K1 = '‘2';, K2 =» 'C'; 
TYPE Ti = INTEGER: T2 = REAL, 
VAR 12,0 
v2 : REAL, ®) 
END, t(° Pp21 ®) 


BEGIN (* ANFANG DES ANWEISUNGSTEILS VON P1 *) 
(* HIER SIND POLGENDE NAMEN SICHTBAR: 


CONST K1 = 3, R2 = 'C', K3 = 
TYPE Ti = INTEGER, T2 = REAL, 
VAR v1. 271% 
v2 : REAL; “) 
END, (* P2 %) 


BEGIN 


(%* HIER SIND POLGENDE NAMEN SICHTBAR 


CONST K1 = 3; K2 = 'C'; K3 = 
TYPE Ti = 1NTEGER, T2 = REAL; 
VAR a a 
v2 : REAL; “) 
END. 


Listing 3. EiIn Beispiel für Sichtbarkeltsregeln 


BEGIN 
WRITELU'S$'), 


(* PRINTBYTE *) 


PRINTBYTE(X DIV 256); 
PRINTBYTE(X MOD 256); 


END; 


(“* PRINTHEX *) 


BEGIN (* HAUPTPROGRAMN *) 


WRITELNU' Geben Sie positive ganze Zahlen ein: '); 


READ(I X; 
WHILE X>0 DO 
BEGIN 


WRITELN' = 


READ(X) 
END; 
END. 


PRINTHEX(XY), 


Listing 4. Umrechnung dezimal nach hexadezimal 





PROGRAM VEKTOROPERATIONEN ( INPUT, 


CONST N « 3; 
IM VEKTOR *) 
TYPE VERTOR = ARRAYL1..313 OP REAL; 


VAR Kt 
SKALAR: 


VEKTOR; 
INTEGER; 


PROCEDURE HOLEN! VAR V: VEKTOR), 


(* VEKTOR MIT N KOMPONENTEN EINLESEN *) 


VAR I: INTEGER; 


BEGIN 
FOR I:= 1 TO N DO READ(VUTIND; 
READLN; 

END: (* HOLEN *) 


PROCEDURE DRUCKEN! V: VEKTOR); 
(* VERTOR MIT N KOMPONENTEN DRUCKEN *) 


VAR I: INTEGER, 


BEGIN 
FOR I:= 1 TO N DO WRITE( VII]: 8); 
WRITELN, 

END, (* DRUCKEN *) 


zu beachten, daß in der Parameterliste 
nur Typnamen auftreten dürfen. Diese 
müssen Sie also eventuell zunächst 
(außerhalb der Prozedur) im Typverein- 
barungsteil bestimmt haben. Statt 
PROCEDURE DRUCKE(X:ARRAY [1..2] 
OF CHAR); 

muß man schreiben 

TYPE T: ARRAY [1..2] OF CHAR; 
PROCEDURE DRUCKE(X: T); 


Es gibt keinerlei Beschränkung für 
die Typen der Variablen- oder Wertpara- 
meter. Dies soll das Beispiel in Listing 6 
verdeutlichen. In der Mathematik würde 
man ein Array mit N Elementen des Typs 
REAL als einen Vektor reeller Zahlen 
bezeichnen. Mit Vektoren kann man wie 
mit snormalen« Zahlen rechnen. Sind X 
und Y zwei Vektoren und S eine reelle 
Zahl, so kann man zum Beispiel X+Y 
und S*X berechnen. Damit Sie auch mit 
diesen Operationen ein wenig experi- 
mentieren können, sind neben den Pro- 
zeduren ADDIEREN und MULTIPLIZIE- 
REN noch die Prozeduren HOLEN und 
DRUCKEN zur Ein- und Ausgabe von 
Vektoren vorhanden. 

An diesen vier Prozeduren erkennen 
Sie gut den Unterschied zwischen 
Wert- und Variablenparametern. Nur 
wenn über einen Parameter ein Ergeb- 
nis oder eine Eingabe zurückgeliefert 
werden soll, verwendet man Variablen- 
parameter, ansonsten Wertparameter. 
Dadurch ist während der Ausführung 
der aktuelle Parameter gegen (unbeab- 
sichtigtes) Überschreiben geschützt. 

Es gibt jedoch einen weiteren Fall, in 
dem man mit Variablenparametern ar- 
beitet, obwohl keine Ergebnisse zu- 
rückgeliefert werden sollen. Werden 
sehr große Variablen an ein Unterpro- 
gramm übergeben, so existiert jeder 
Parameter im Speicher des Rechners 
doppelt. Einerseits wird der Wert der 


aR 


OUTPUT), 


PROCEDURE ADDIEREN (A,B: 


(X C=ı + B. DIE 


(* LAENGE EINES VEKTORS = ANZAHL DER ELEMENTE 


VAR I: INTEGER: 


BEGIN 


VEKTOR, VAR C: VEKTOR), 
ADDITION ERFOLGT KOMPONENTENWEISE *) 


FOR I:= 13 TO N DO CII):= ALT) + BULL) 


END; 


PROCEDURE MULTIPLIZIEREN (S: 


(t C= Sr A. JEDE 


VAR I: INTEGER, 


BEGIN 


(*2 ADDIEREN *) 


REAL, A: VEKTOR, VAR C: VEKTOR) 
KOMPONENTE WIRD MIT S MULTIPLIZIERT *) 


FOR I:= 1 TO N DO CIIJ:e S * AUT) 


BEGIN 
WRITEU'X ="), 
WRITEU'’Y ='),; 
ADDIERENUX,Y, 2); 


WRITEU'X + Y 

WRITEC'P =’), 

MULTIPLIZIEREN (SK 

WRITEU'P ®% X ='), 
END. 


READ 


Listing 6. Vektoroperationen In Pascal 


Variablen im aufrufenden Programm 
gespeichert und zusätzlich beim Aufruf 
der Prozedur als lokale Variable. Für die 
Praxis können Sie sich also merken, 
daß Sie große Arrays (insbesondere auf 
Mikrocomputern mit ihrem kleinen 
adressierbaren Speicherraum) am 
besten als Variablenparameter überge- 
ben. Bei diesen wird nämlich nur eine 
Adresse (also nur wenige Bytes) an die 
Prozedur übergeben, die die Position 
des aktuellen Parameters im Speicher 
bezeichnet. In der Prozedur wird dann 
jeder Zugriff auf diesen Parameter indi- 
rekt über die Adresse ausgeführt. 

Wegen dieser unterschiedlichen For- 
men der Übergabe bezeichnet man den 
Aufruf mit Wertparametern als »call by 
value« und den Aufruf mit Variablenpa- 
rametern als »call by reference«. 

Zu diesem Themengebiet der »Tech- 
nik hinter den Kulissen« gehört auch die 
Verwaltung des Speichers bei einem 
Pascal-Rechner. Neben den (statisti- 
schen) Sichtbarkeitsregeln für die 
Namen von Variablen, muß auch die 
(dynamische) Gültigkeit der Werte von 
Variablen Beachtung finden. 

Beim Eintritt in einen Block ist der 
Wert jeder Variablen, die nicht Parame- 
ter einer Prozedur oder Funktion ist, 
undefiniert. 

So ist zum Beispiel am Programman- 
fang jede Variable unbestimmt. Sie 
besitzt also nicht etwa wie in Basic den 
Wert Null. Bei jedem neuen Aufruf einer 
Prozedur verhält es sich mit allen loka- 
len Variablen bis auf die Parameter 
ebenso. Man kann also nicht davon aus- 
gehen, daß die Variablen die Werte 
ihres letzten Aufrufes beibehalten. 

Vielleicht interessiert es Sie, die Hin- 
tergründe dieser Regel zu erfahren. Bei 
der Übersetzung eines Pascal-Pro- 
gramms bestimmt der Compiler für jede 
Prozedur den Speicherplatzbedarf für 





(* MULTIPLIZIEREN *) 


HOLEN X), 
HOLENLY), 


DRUCKEN( 7); 
LNUSKALAR),; 
ALAR,X, 2); 
DRUCKEN! 2), 





alle lokalen Variablen. Innerhalb dieses 
Speichers weist er jeder Variablen eine 
feste Position zu. Jedoch bleibt die 
absolute Lage des Speicherblockes im 
Computer unbestimmt. 

Erst während der Ausführung wird 
beim Aufruf jeder Prozedur der Spei- 
cherblock für die lokalen Variablen 
reserviert. Umgekehrt wird beim Ende 
der Ausführung einer Prozedur ihr 
gesamter Speicherblock wieder freige- 
geben. Unterprogramme haben aber 
bekanntlich die Eigenschaft, das zuletzt 
aufgerufene Unterprogramm als erstes 
wieder zu verlassen. Ein Beispiel: 

A ruft B 
Brrüftie 
C ruft D 
D kehrt zurück zu C 
C kehrt zurück zu B 

B kehrt zurück zu A 
Ende von A 

Deshalb werden die Variablen eines 
Pascal-Programms auf einem Stack 
(Stapelspeicher) verwaltet. 

Betrachten wir das Programm in 
Listing 7. Es besteht aus zwei Prozedu- 
ren, die in verschiedener Reihenfolge 
aufgerufen werden (ansonsten aber 
nicht viel Sinnvolles erledigen). Wir wol- 
len nun nach jedem Schritt einen Blick 
auf den Speicher des Rechners werfen 
(Bild 3): 

Zu Programmbeginn (1) ist der ge- 
samte Speicher frei. Beim Eintritt in das 
Hauptprogramm wird zunächst Platz für 
die Variable M des Hauptprogramms 
geschaffen (2). Nun erfolgt der Aufruf 
der Prozedur P1, die ihrerseits Platz für 
die Variable LI benötigt (3). Nach der 
Rückkehr aus Pi kann dieser Platz 
sofort wieder freigegeben werden (4). 
Der Aufruf P2(FALSE) erfolgt in densel- 
ben Schritten (5 und 6), wobei jedoch 
Platz für zwei Variablen (L2 und auch 
P1) benötigt wird. 





























Sie sehen schon jetzt, daß derselbe 
Speicherplatz sowohl für die Variablen 
von Pi als auch von P2 verwendet wird. 
Beim Aufruf von P2(TRUE) (7), ergibt 
sich zunächst der Zustand von (5), je- 
doch wird außerdem In P2 noch P1 auf- 
gerufen, so daß sich schließlich eine 
Speicherverteilung wie in (8) ergibt. 
Offensichtlich liegt beim zweiten Aufruf 
von P1 die Variable L2 an einer anderen 
absoluten Adresse. Bei der Rückkehr 
aus P1(9) und P2(10) werden wieder 
die lokalen Variablenbereiche freige- 
geben. 

Der Stack »wächst« also von unten 
nach oben und nimmt von dort wieder 
nach unten ab, wobei er immer einen 
zusammenhängenden Speicherbereich 
bildet. Daß Ihr Rechner zur Laufzeit der 
Programme einen Stack verwaltet, mer- 
ken Sie spätestens dann, falls bei einem 
Prozeduraufruf kein Platz mehr für die 
lokalen Variablen vorhanden ist. Das 
quittiert das Programm gewöhnlich mit 
der Fehlermeldung »stack overflowe«. 


Funkdomen 


Inzwischen sind Sie mehrmals auf die 
Formulierung »Prozedur« oder »Funk- 
tion« gestoßen, ohne daß Sie Näheres 
über Funktionen in Pascal erfahren 
haben. Eine Funktion ist eine spezielle 
Form einer Prozedur, die zusätzlich 
noch einen Wert als Ergebnis liefert. In 
der Mathematik gibt es zum Beispiel die 
Maximumfunktion, die das Maximum 
von zwei Zahlen liefert, so daß gilt: 
max [3,4] = 4 
3 + max|0,-7) = 3 

Man kann also das Ergebnis der 
Funktion auch in arithmetischen Aus- 
drücken verwenden. All diese Möglich- 
keiten gelten bei der Verwendung von 
Funktionen in Pascal, die einige Stan- 
dardfunktionen der Mathematik nach- 
bilden. Dabei verbirgt sich unter der 
Funktion HOCH (Listing 8) die in Pascal 
standardmäßig nicht vorhandene Me- 
thode, um Ahoch B für beliebige Zahlen 
zu berechnen. 

Bei der Definition unterscheidet sich 
eine Funktion von einer Prozedur nur 
durch den Funktionskopf. Hier ersetzt 
das Schlüsselwort FUNCTION das 
Wortsymbol PROCEDURE. Außerdem 
wird zusätzlich am Ende der (eventuell 
leeren) Parameterliste nach einem Dop- 
pelpunkt der Name des Typs angege- 
ben, zu dem das Ergebnis der Funktion 
gehört. Somit lautet der Funktionskopf 
der Funktion MAX, die das (reelle) Maxi- 
mum zweier reeller Zahlen berechnet, 
folgendermaßen: 

FUNCTION MAX (A,B: REAL): REAL; 

Der Ergebnistyp darf kein zusam- 
mengesetzer Typ, wie zum Beispiel 
eine Menge oder ein Array, sein. Um 
innerhalb der Funktion das Ergebnis zu 


ae 


bestimmen, verwendet man den Funk- 
tionsnamen in einer Zuweisung: 
IF A>B THEN 

MAX:=A 


Natürlich muß auf jeden Fall innerhalb 
einer Funktion eine solche Zuweisung 
stattfinden, damit die Funktion bei der 
Rückkehr einen definierten Wert liefert. 
Funktionsaufrufe sind nur innerhalb von 
Ausdrücken zulässig, während Proze- 
duraufrufe syntaktisch gesehen Anwei- 
sungen sind. 

IF MAX(A,B) >4 THEN ... 
A == MAX(A,B); 
MIN:= -MAX(-A,-B) 

Jetzt folgt eine kleine Sammlung von 
Prozeduren und Funktionen, die Ihnen 
die Programmierung typischer Opera- 
tionen mit Arrays zeigt. Die erste Proze- 
dur in Listing 9 sortiert den Inhalt des 
Arrays in A, das als Parameter überge- 
ben wird. Durch die Wahl von SORT- 
TYPE = INTEGER könnten Sie diese 
Prozedur auch zum Sortieren ganzer 
Zahlen (oder jedes anderen Typs) ver- 
wenden. Das Sortierverfahren ist eines 
der einfachsten und langsamsten über- 
haupt. Bei jedem Durchlauf der äußeren 
FOR-Schleife wird jeweils ein Wert im 
Array an seine korrekte Position 
gebracht und dazu in der inneren 
Schleife der maximale Wert im Restar- 
ray bestimmt. Somit wird im ersten 
Durchlauf die größte Zahl mit der Zahlan 
der letzten Arrayposition vertauscht. Im 
nächsten Durchlauf wechselt die zweit- 
größte Zahl mit der vorletzten Arraypo- 
sition den Platz, bis im letzten Durchlauf 
der kleinste Wert an der ersten Position 
landet. 

Eine etwas exotischere Prozedur 
stellt Listing 10 vor. Hier wird der Kehr- 
wert des ganzzahligen Parameters I 
exakt gedruckt. Bei periodischen Brü- 
chen erscheint ein Pfeil am Beginn der 
Periode. 


Speicherblöcke 


H Hauptprogramm 
A Prozedur 2 


Prozedur 1 


7 se Li 


B 





1 N 


Hauptprogramm 





Bild 2. Statische Schachtelung 
von Prozeduren 


PROGRAM SPEICHERPLATZ (INPUT, OUTPUT); 


VAR M: REAL, 


PROCEDURE Pi; 


VAR Li: INTEGER; 
BEGIN 
WRITELN (' PROZEDUR Pi MIT Li ", 
L1D; 
END, (* Pı %) 


PROCEDURE P2 (AUCHP1: BOOLEAN); 


VAR L2: REAL; 
BEGIN 
WRITELN ' PROZEDUR P2 MIT L2 =’, 
L2); 
IF AUCHPI THEN Pi; 
END: (* P2 a) 


BEGIN 
P1; 
P2 ( PALSE),; 
P2 (TRUE) 
END. 


Listing 7. Belspleiprogramm zur Spel- 
cherorganisatlon (vergleiche Bild 3). 





N Hi 
1 Ba 
7 8 9 10 


Bild 3. Diagramm zur dynamischen Speicherorganisation (siehe Text) 





1/3 0. 13 

1/12 0. 08° 3 

1/17 = 0.10588235294117647 
Wie findet man aber den Anfang (und 

damit auch das Ende) der Periode? 

Zunächst erinnern wir uns an die Rech- 

nung mit Brüchen aus der Schule: 

1.000000 / 7 = 0. 1142857 


Beginnend mit dem REST 1 multipli- 
ziert man immer 10 und dividiert das 
Produkt wieder durch I. Der ganzzah- 
lige Anteil REST DIV list die nächste Zif- 
fer des Ergebnisses, während der Divi- 
sionsrest REST MOD I den REST für 
den nächsten Divisionsschritt bildet. 


Die Periode endet genau dann, wenn 
der REST bereits früher einmal in der 
Berechnung (nicht unbedingt als erster, 
siehe 1/12!) aufgetreten ist. Daher spei- 
chert die Prozedur alle Ziffern in einem 
Array ZIFFERN und für jeden Rest R 
den Index der zugehörigen Ziffern in 
dem Array INDEX. Wird dabei festge- 
stellt, daß dieser INDEX ungleich O ist, 
also dieser Rest bereits einmal auftrat, 
so ist die gesamte Periode bekannt, und 
das Ergebnis kann anschließend ge- 
druckt werden. Probieren Sie es doch 
einmal mit 1/29! 

Zum Verständnis der Prozedur Listing 
11 benötigen Sie noch Kenntnisse über 
die Stringbehandlung in Pascal. Bisher 
wurden in allen Beispielprogrammen 
nur einzelne Zeichen, also Werte vom 
Typ CHAR, verwendet. Möchte man 
jedoch Worte, Zeilen oder Sätze, die 
aus einer Folge von Zeichen bestehen, 
verarbeiten, so muß man ein Array aus 
Zeichen definieren. 

CONST TEXT='"Otto Anna'; 
TYPE STRING = ARRAY [1..9] 
OF CHAR; 
VAR WORT : STRING; 

ZEILE: ARRAY [1.80] 
OF CHAR; 

Text ist eine Konstante mit dem Typ 
ARRAY [1..9] OF CHAR, da sie aus 
neun Zeichen besteht. Denselben Typ 
besitzt die Variable Wort. Die Variable 
Zeile umfaßt 80 einzelne Zeichen. 
Wichtig ist jetzt die Tatsache, daß jedem 
String eine feste Länge zugeordnet ist. 
Es ist also nicht möglich, in Wort nur vier 
Zeichen zu speichern, man muß viel- 
mehr den Rest des Strings zum Beispiel 
mit Leerzeichen füllen: 


WORT:= '"ANNA_____'; (korrekt) 
WORT:= '"ANNA'; (falsch) 
WORT:= TEXT; (korrekt) 
WORT:= ZEILE; (falsch) 
Zeile:= WORT; (ebenfalls 
falsch!) 


40 


FUNCTION SIGNUM (X: REAL): INTEGER, 
("2 Vorzeichen: 0, -1 oder +1 %) 


BEGIN 
IF X30 THEN SIGNUN: = 1 
ELSE 
IP XcQ THEN SIGNUN: = -1 
ELSE SIGNUN: = 0 
END. (4 SIGNUMN *) 


FUNCTION HOCH (X, Y: REAL): REAL; 
(" ERGEBNIS ISTX "Ya 
BEGIN 
HOCH: = EXPı Y “ LOGIN); 
END; (* HOCH *) 


FUNCTION PAKULTAET (N: INTEGER): REAL: 
(* ERGEBNIS ISTNı = 1 vr 2a Ja. a 
. a N a) 
VAR P: REAL; 
I: INTEGER: 
BEGIN 
P:= 1.0; 
FOR I: = 2 TO N DO P:= P x] 
FAKULTAET: = P 
END, (* FAKULTAET *) 


GEOMETRISCHES_NITTEL(A, B: REAL): 
BEGIN 

GEONMETRISCHES_MITTEL: =» SORT A*B) 
END; 


REAL; 


ARITHMETISCHES_MITTEL(A,B,C: REAL) 
REAL; BEGIN 
ARITHMETISCHES_MITTEL: = 
(kA +B + C) / 3 
END, 


Listing 8. Einige Beisplele für 
Funktionen In Pascal 





Zuweisungen sind also nur zwischen 
Strings gleicher Länge möglich, da 
weder überflüssige Zeichen abge- 
schnitten noch zu kurze Strings mit 
Leerzeichen erweitert werden. Ande- 
rerseits kann man jedoch auch Strings 
gleicher Länge miteinander verglei- 
chen. Dabei bestimmt das Ergebnis des 
Vergleiches den zugrundeliegenden 
Zeichensatz. Im ASCIl-Code gilt bei- 


spielsweise 

"ALPHA! < 'BETA ! 
'ALPHA' <'alpha' 
INLP ti. ATEBHA' 


Die hier gemachten Einschränkun- 
gen gelten für Standard-Pascal. Für 
Turbo-Pascal und andere Compiler gel- 
ten sie nicht. 

Die Funktion POSITION in Listing 11 
liefert die Position von Wort in der 
Tabelle TAB. Diese Tabelle soll aufstei- 


CONST N = 100, 
TYPE SORTIERELEMENT »- REAL; 
SORTIERFELD = ARRAY (UG..0OG) 
OF SORTIERELEMENT.: 


PROCEDURE SORT( VAR A: SORTIERFELD); 
VAR I, J, RK: INTEGER, 
MAX : SORTIERELEHMENT,; 


BEGIN 
FOR J: = 0OG DOWNTO UG+1 DO 
BEGIN 
MAX: » ALUGI; K:= UG; 
FOR I: = UG+1 TO J DO 
IF ALI) >» MAX THEN 
BEGIN 
K:= I; MAX: = AUI) 
END; 
AK): =» AlJ),;, Ald): = MAX 
END: 
END, (*% SORT *) 


Listing 9. Sortieren durch Auswahl 











gend mit Strings gefüllt sein. Aus der 
Funktion resultiert der Wert O, falls Wort 
nicht in TAB enthalten ist. 

Falls Sie einmal ein Programm schrei- 
ben möchten, das Ihnen alle Namen in 
einem Pascal-Programm ausdruckt, so 
müssen Sie zunächst alle Schlüssel- 
worte erkennen. Hierzu könnten Sie die 
Funktion POSITION verwenden. In TAB 
werden alle Schlüsselworte in alphabe- 
tischer Reihenfolge eingetragen (AND, 
ARRAY, BEGIN, .. .). Dann ergeben sich 
folgende Funktionsergebnisse: 


POSITION( 'AND USTAB) =] 
POSITION( 'BEGIN "‚TaB) = 3 
POSITION( 'WITH ',TAB) = 39 
POSITION( 'WIRSING ',TAB) = O 


Obwohl die Funktion etwas kompli- 
zierter aussieht, arbeitet sie für große 
Arrays wesentlich schneller als die ein- 
fache Version aus Listing 12, die das 
Array schrittweise von hinten nach 
vorne durchsucht. Statt dessen ver- 
wendet die erste Funktion zwei Zeiger 
R und L auf den rechten und linken 
Rand des Teilarrays, in dem sich der 
gesuchte Wert befinden muß. In jedem 
Schritt wird nun der Mittelpunkt M des 
Intervalls untersucht. Steht an dieser 
Stelle ein Wort, das größer als das 
Suchwort ist, so liegt das Suchwort im 
Intervall L bis M-1, ansonsten muß es im 
Interval M+1 bis R zu finden sein. Die 
Suche istbeendet, falls die Zeiger Lund 
R sich überschneiden. Offensichtlich 
wird in jedem Schritt das Array halbiert, 
was den Geschwindigkeitsvorteil 
gegenüber Listing 12 ausmacht. 

Noch ein Wort zu der linearen Suche 
in Listing 12: Warum wurde nicht ein- 
fach die Schleife 


I:= ANZAHL; 

WHILE (WORT < >TAB[I] AND 
(120400 1 = 2% 
POSITION:= I 


verwendet? Ist in diesem Fall Wort nicht 
in TAB vorhanden, so ist im letzten 
Schleifendurchlauf I=0, was im ersten 
Teilder WHILE-Bedingung einen Zugriff 
auf das (nicht existierende) Element 
TAB[O0] zur Folge hat. Normalerweise 
erkennt ein Pascal-Laufzeitsystem sol- 
che Indizierungsfehler und gibt dann 
eine Fehlermeldung aus. 


Rekursion 


Das letzte Programm in Listing 13 ist 
ein besonders schönes Beispiel für 
eine sehr nützliche Eigenschaft von 
Prozeduren und Funktionen in Pascal. 
Falls Sie sich an die Ausführungen über 
die Speicherverwaltung erinnern, wis- 
sen Sienoch, daß bei jedem Prozedur- 
aufruf neuer Speicherplatz für die loka- 
len Variablen bereitgestellt wird. Des- 








halb kann sich eine Prozedur auch 
selbst aufrufen, ohne daß dadurch der 
Inhalt der lokalen Variablen zerstört 
würde. Den Selbstaufruf einer Prozedur 
oder Funktion nennt man Rekursion. 
Das Programm in Listing 13 verwendet 
nun eine rekursive Prozedur PRO- 
BIERE__ZEILE, um das »Problem der 
acht Damen« zu lösen. 

Die Aufgabe besteht darin, acht Köni- 
ginnen, die nach den Schachregeln alle 
Figuren in ihrer Zeile und Spalte sowie 
in beiden Diagonalen bedrohen, so auf 
ein Schachbrett zu setzen, daß keine 
Figur eine andere bedroht. Bild 4 zeigt 
die Felder, die eine Dame angreift, wäh- 
rend Bild 5 eine zulässige Lösung zeigt. 

Die Lösung stellt ein sogenannter 
Backtracking Algorithmus. Hierbei pro- 
biert man eine Reihe von Schritten aus, 
bis man feststellt, daß dieser Weg in 
eine Sackgasse führt. In diesem 
Moment beginnt man die letzte Ent- 
scheidung rückgängig zu machen und 
einen neuen Weg zur Lösung zu finden. 
Indem man systematisch alle möglichen 
Kombinationen durchsucht, wird auf 
jeden Fall eine Lösung (sofern vorhan- 
den) gefunden. 

In diesem konkreten Beispiel positio- 
niert man zunächst eine Dame an eine 
zulässige Stelle der ersten Zeile. Dabei 
wird notiert, welche Diagonalen und 
welche Spalte die Dame bedroht. An- 
schließend wird in der zweiten Reihe 
eine ungefährdete Position gesucht, 
die die zweite Dame besetzt. Diese Pro- 
zedur wiederholt sich so lange, bis die 
achte Zeile belegt und die Lösung 
gefunden ist. Im Normalfall ist natürlich 
bereits in der dritten oder vierten Zeile 
jedes Feld gefährdet, so daß die Suche 
in eine Sackgasse führt. Dann wird die 
Dame von ihrem Feld wieder entfernt 
und in der letzten Reihe die Dame auf 
das nächste freie Feld gesetzt. Mit die- 
ser Strategie erhält man alle 92 Lösun- 
gen auf einem 8 x 8-Brett. 

Das größte Problem besteht darin, 
möglichst schnell zu testen, ob eine 
Diagonale oder eine Spalte bereits 
belegt ist. Deshalb werden drei boole- 
sche Arrays geführt, die für jede Diago- 
nale und Spalte den Wert TRUE enthal- 
ten, falls diese nicht bedroht ist. Natür- 
lich muß die Information in diesem Array 
am Programmanfang gelöscht und bei 
jedem Zug und jeder Zugrücknahme 
aktualisiert werden. Bild 6 zeigt, wie 
man aus dem Zeilen- und Spaltenindex 
l,J die Nummer der jeweiligen Diagona- 
len durch Addition und Subtraktion 
erhält. 

Bisher wurde nur das Array als 
zusammengesetzter Typ verwendet. 
Durch die Flexibilität bei der Wahl des 
Indextyps und des Typs der Elemente 
konnten sehr verschiedenartige Pro- 
bleme behandelt werden. Bevor wir uns 
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IF I>MAXIMAL THEN 
ELSE 
BEGIN 


WRITEL"H5# 27, 7% = 0:5: 


(“* NOCH IST KEIN REST AUFGETRETEN, 


FOR J:» 0 TO 1-1 DO 
INDEXLJ): = 0; 


K ;= 0, 
REST: = 1; 
REPEAT 
K:= K+1; INDEXUREST): = K; 
REST: = ZEHN * REST. 
ZIFFERLK): = REST DIV I, 
REST :®e REST MOD I, 
UNTIL INDEX REST) <>O, 


(* WIR BERECHNEN 


(= JETZT NOCH DAS ERGEBNIS DRUCKEN, 


(* ERSTEN ZIPFER IN DER PERIODE 
FOR J: =» 1 TO INDEX REST) -1i DO 


WRITECCHRUZIFFERLJ) +ORDE'O'))), 


WRITE« 1; 
FOR J: =INDEXI REST) TO K DO 


WRITECCHRUZIFFERL J)+ORDU'O'))), 


WRITELN 
END; 
END, (* KEHRWERT *) 


PROCEDURE KEHRWERT (I: INTEGER), 


WRITELN(' DIE ZAHL IST ZU GROSS! ') 


DESHALB INDEX LOESCHEN: *) 


(* DIE ERSTE ZIFFER WIRD BERECHNET *) 


a: “) 


(* BIS DIESER REST SCHON EINMAL BERECHRET *) 


INDEX{REM) IST DIE POSITION DER 


(“ DRUCKE DEN EXAKTEN KEHRWERT DER ZAHL I MIT ANSABE DER PERIODE 


CONST ZEHN = 10, 
MAXIMAL = 300; 


; INTEGER, 
REST 


ZIFFER 
INDEX 


(% BASIS DES DEZIMALSYSTENS 
(* MAXIMALE GROESSE PUER I UND DIVISIONSREST 
INTEGER;, (* LAUFENDER DIVISIONSREST BEI STELLE K 


ARRAYL1i.. MAXIMAL) OF INTEGER, 
ARRAYIO.. MAXIMAL) OF INTEGER; 


Listing 10. Exakte Berechnung des Kehrwertes 


CONST ANZAHL = 30; 


TYPE STRING = ARRAYL1..111 OF CHAR, 





(® LAENGE DER SUCH-TABELLE 


(* LÄNGE EINES WORTES = 11 ZEICHEN 


TABELLE= ARRAYI1.. ANZAHL) OF STRING; 


FUNCTION POSITION (WORT: STRING; 


(®* IN TAB STEHT. 


VAR L,R,M: INTEGER: 
BEGIN 
L: ®1; 
REPEAT 
M: = (L+R) DIV 2; 
IF WORT<C=-TABIM) THEN 
IF WORT> »TABI MI THEN 
UNTIL L>»R: 
IF LyRe+i THEN POSITION 
ELSE POSITION 
END; (* POSITION *) 


R: = ANZAHL; 


Listing 11. Binäre Suche 


PROCEDURE POSITION (WORT: STRING: 


VAR 1: INTEGER; 


BEGIN 
I: =ANZAHL; 
WHILE ( TABLI)<>WORT) 
IF TAB{E I) WORT THEN POSITION: =1 
ELSE POSITION: =0O 
END, (* POSITION *) 


Listing 12. Lineare Suche 


weiteren Datentypen in Pascal zuwen- 
den, kommen noch zwei weitere Eigen- 
schaften von Arrays zur Sprache. 

1. Man kann auch das Array als Gan- 
zesin einer Zuweisung verwenden, falls 
auf der rechten und linken Seite des 
Zuweisungsoperators je ein Array des- 
selben Typs steht: 





VAR TAB: 
TAB MUSS AUFSTEIGEND ALPHABETISCH SORTIERT SEIN. 
FUNKTION 1ST DIE POSITION VON WORT IN TAB BZW. O0, 


VAR TAB: 
(* EINFACHE LINEARE SUCHE NACH WORT IN TAB. 


TABELLE); 
DAS ERGEBNIS DER 
FALLS WORT NICHT 


MITTELPUNKT DES INTERVALLS L..R 
WORT LIEGT LINKS VON DER MITTE 
WORT LIEGT RECHTS VON DER MITTE 
BIS ZEIGERKOLLISION 

WORT GEPUNDEN 

WORT NICHT VORHANDEN 





TABELLE), 
TAB MUSS NICHT SORTIERT SEIN *) 


AND (I<c>1) DO I: «I-t; 





VAR A,B: ARRAY[1..100] OF REAL; 
A:=B; 

Mit dieser Zuweisung werden also 
100 reelle Zahlen aus dem Array B in 
das Array A kopiert. Somit enthält diese 
allgemeine Regel die oben genannten 
Bedingungen, unter denen eine Zuwei- 
sung zwischen Strings zulässig ist. 
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2. Arrays können als Elemente nicht 
nur einfache, sondern auch zusammen- 
gesetzte Typen enthalten. Wiederum 
hatten wir diese Tatsache bereits bei 
der Besprechung der Strings vorweg- 
genommen, als wir definierten: 

TYPE STRING = ARRAY[1. .11) 
OF CHAR; 

TABELLE= ARRAY[1..ANZAHL] 
OF STRING; 

Ist der Elementtyp ein Array, SO 
spricht man oft auch von mehrdimen- 
sionalen Arrays. In diesen Fällen kann 
man auch eine vereinfachte Notation 
verwenden. Statt 
VAR A,B: ARRAY [1..N]) OF 

ARRAY [1..M] OF 
ARRAY [1..K] OF REAL; 
A[ıJ[ı)[1]:= BL2][3][4) 
schreibt man dann: 
VAR A,B: ARRAY[1..N,1..M,1..K] 
OF REAL; 
A[1,1]:=B[2,3,4] 

Bei der Arbeit mit solchen mehrdi- 
mensionalen Tabellen verwendet man 
sehr häufig Ausschnittstypen. Betrach- 
ten Sie zum Beispiel (Bild 7), das eine 
zweidimensionale Tabelle mit Umsatz- 
zahlen (Millionen DM ?) für fünf Jahre 
mit jeweils zwölf Monaten enthält. Das 
kann man schreiben als: 

TYPE MONAT = 1..12; 


JAHR = 1980. .1985; 
VAR UMSATZTABELLE = ARRAY 
[JAHR,MONAT] 
OF REAL; 
M : MONAT; 
J : JAHR; 


Die Variablen M und J besitzen die 
Ausschnittstypen MONAT und JAHR 
und können daher nur die Werte 1 bis 
12 oder 1980 bis 1985 annehmen. Sie 
eignen sich also hervorragend als Zei- 
ger in die zweidimensionale Tabelle. 
Jede Zuweisung an eine Variable eines 
Ausschnittstyps wird zur Laufzeit auf 
gültige Werte geprüft, so daß bei fol- 
genden Anweisungen das Programm 
mit einer Fehlermeldung endet: 

J:= 12; M:= 1985 

Einmal schützt also der Compiler vor 
irrtümlichen Zuweisungen. Listing 14 
zeigt drei Funktionen, die in solchen 
Umsatztabellen Zeilen-, und Spalten-, 
oder Gesamtsummen berechnen. Das 
Hauptprogramm verwendetdiese Funk- 
tionen für die Ermittlung von Umsätzen 
für zwei Produkte (Farben und Lacke). 

Allgemein kann man von jedem skala- 
ren Typ Ausschnittstypen bilden: 

TYPE BUCHSTABEN = 'A'..'Z'; 
ZIFFERN = '97,.'9'; 

Eine Variable eines Ausschnittstyps 
kann überall dort verwendet werden, 
wo auch eine Variable des zugehörigen 
Grundtyps (INTEGER oder CHAR) ste- 
hen kann. Unter Umständen kann die 
Verwendung von Ausschnittstypen 
(zum Beispiel als Elementtyp in großen 
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Bild 4. Beispiel für die von einer Dame 
bedrohten Felder 


Bild 5. Eine von mehreren Lösungen 
des Achit-Damen-Problems 


Bild 6. Berechnung der Diagonalen Im Programm ACHT DAMEN (links: Addition 
der Zellen- und Spaltennummern, rechts entsprechend Subtraktion). 


Arrays) bei einigen Compilern auch 
Speicherplatz einsparen. Mit der 
Kenntnis, daß die Variable JAHR nur die 
Werte 1980 bis 1985 annnimmt, 
genügt 1 Byte zur Speicherung des 
Wertes (statt 2 oder 4 Byte für die nor- 
malen INTEGER-Zahlen). 


Eigene Datentypen 


Eine andere Methode, neue Typen zu 
definieren, besteht darin, daß man alle 
Werte aufzählt, die dieser Typ annimmt: 
TYPE AMPEL = (ROT, GELB, GRUEN); 

FAMILIENSTAND = (LEDIG, 
VERHEIRATET, 
GETRENNT, 
GESCHIEDEN, 
VERWITWET); 
(BAUER, 
LAEUFER, 
SPRINGER, 
TURM, 

DAME, 
KOENIGC); 
(SCHWARZ, 
WEISS); 

Diese Typen nennt man Aufzählungs- 
typen. Formal gesehen sind zum Bei- 
spielROT und KOENIG Konstanten des 


FIGUR = 


FARBE = 








jeweiligen Typs. Durch die Reihenfolge 
bei der Typendeklaration wird eine Ord- 
nung auf den Konstanten definiert: 
ORD(ROT) = O 

ORD(GELB) = 1 

ORD(GRUEN) = 2 


Somit sind auch Vergleiche zwischen 
Variablen eines Aufzählungstyps sinn- 
voll: 

VAR HAUPTAMPEL : AMPEL; 
IF HAUPTAMPEL <= GELB THEN ... 

Um den Nachfolger und Vorgänger im 
Wertebereich zu erhalten, gibt es die 
Funktionen PRED (predecessor) und 
SUCC (successor): 

SUCC(ROT) = GELB 
SUCC(LAEUFER) = SPRINGER 
PRED(VERHEIRATET) = LEDIG 
PRED(WEISS) = SCHWARZ 

ORD, SUCC und PRED sind übrigens 
für jeden skalaren Typ zulässig, da alle 
skalaren Typen geordnet sind: 
ORD(FALSE)=0 
SUCC (FALSE) =TRUE 
SUBBLERT) =: #B! 

PRED(0O) = -1 

Viele hoffnungsvolle Programme von 
Anfängern enthalten direkte Ein- und 
Ausgabeanweisungen für Werte von 
Aufzählungstypen: 

WRITE (HAUPTAMPEL); 
READ (HAUPTAMPEL) ; 














Diese Anweisungen sind falsch! Nur 
während der Übersetzung sind dem 
Compiler die Namen der Werte des 
Typs bekannt. Zum Zeitpunkt der Aus- 
führung sind alle Aufzählungstypen 
durch Zahlen ohne Verweise auf irgend- 
welche Namen codiert. Man muß also 
die Umwandlung zwischen dem Auf- 
zählungstyp und dem auszugebenden 
Namen selbst vornehmen: 

PROCEDURE DRUCKE_AMPEL(A:AMPEL); 
BEGIN 

WRITE( 'Die Ampel zeigt); 

CASE A OF 


ROT WRITELN('rot'); 

GELB : WRITELN('gelb'); 

GRUEN: WRITELN('grün'); 
END; 


END; (* DRUCKE_AMPEL *) 

Natürlich können auch Auschnittsty- 
pen von Aufzählungstypen gebildet 
werden: 

TYPE ENDSPIELFIGUR = 
LAEUFER. .KOENIG; 

Mit den Aufzählungstypen lernen Sie 
den letzten skalaren Typen in Pascal 
kennen. Alle weiteren Typen, die den 
Rest des Artikels einnehmen, sind 
zusammengesetzte Typen wie das 
Array. Mengen von Zahlen sind Ihnen 
sicher bekannt. Um einen Mengentyp 
zu deklarieren, verwendet man die 
Wortsymbole SET und OF, denen ein 
skalarer Typ folgen muß: 

TYPE FIGUREN = SET OF FIGUR; 
VAR MEINE, DEINE: FIGUREN; 

Mit den Mengen-Variablen MEINE 
und DEINE kann man beispielsweise 
über die geschlagenen Figuren führen. 
Am Spielbeginn gilt: 

MEINE:= [BAUER...KOENIG); 
DEINE:= MEINE; 

IF [TURM,DAME,KOENIG] < 
=MEINE THEN... 

Mit dieser Abfrage wird also getestet, 
ob ein Spieler noch Turm, Dame und 
König besitzt. Daeine Menge jedesEle- 
ment nur einmal oder keinmal enthält, 
werden Mengen überall dort verwen- 
det, wo das Vorhandensein einer 
gewissen Eigenschaft signalisiert wer- 
den soll. 

Arrays und Mengen fassen mehrere 
Werte eines Typs zu einem zusammen- 
gesetzen Typ zusammen. Besonders in 
großen Programmen ist es jedoch auch 
sinnvoll, Werte verschiedener Typen zu 
einer Einheit zu verbinden. Zur Kon- 
struktion solcher Typen verwendet man 
in Pascal Recordtypen (Verbundtypen): 
TYPE POSITION = RECORD 

X,Y:"REAL; 

END; 
ADRESSE = RECORD 
NAME, VORNAME: STRING; 
ORT, STRASSE : STRING; 
HAUSNUMMER : INTEGER; 
PLZ : INTEGER; 
END; 


NY 
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PROGRAM ACHT_DAMEN ( INPUT, OUTPUT); 


CONST N = 8; 
N2 16; 


(* ACHT DAMEN AUF EINEM 8 * 8 SCHACHBRETT *) 
(A SaniN 


DAME : ARRAY I1..N OF INTEGER; 
SPALTE_FREI: ARRAY I1..N] OP BOOLEAN,;, 
DIAGI_PREI : ARRAY 12..N2) OF BOOLEAN, 
DIAG2_FREI : ARRAY I -N. N) OF BOOLEAN, 
LOESUNG : INTEGER; 
I : INTEGER; 


PROCEDURE DRUCKELOESUNG, 
(%* ZEIGE DIE POSITION DER DAMEN AN, ERHÖHE DEN ZÄHLER FÜR DIE LÖSUNGEN %) 


VAR ZEILE, SPALTE: INTEGER;, 
BEGIN 
LOESUNG: = LOESUNG + 1; 
WRITELN, WRITELN; WRITELNE' LÖSUNG‘, 
FOR ZEILE: -1 TO N DO 
BEGIN 
FOR SPALTE: »1 TO N DO 
IF SPALTE = DAMEIZEILEI THEN WRITE(' *°) 
ELSE WRITELU' +'),; 


LOESUNG: 2, ':' 


WRITELN,; 
END; 
END; {= DRUCKELOESUNG *) 


PROCEDURE SET2E_ZEILE(I: INTEGER); 
(* SUCHE FREIE POSITION FÜR DAME IN ZEILE I. FALLS EIN PLATZ GEFUNDEN *) 
(%* WURDE, WIRD EINE DAME IN ZEILE I+1 GESETZT ODER DIE VOLLSTAENDIGE *) 
(* STELLUNG ANGEZEIGT. SONST ERFOLGT EIN RUECKSPRUNG. n) 
VAR J: INTEGER, 
BEGIN 
FOR J:= 1 TO N DO 
IF SPALTE_FREILJ]I AND DIAG{_FREILI+J) AND DIAG2_FREILJ-I) THEN 
BEGIN (* HIER KANN JETZT DIE DAME GESETZT WERDEN: *) 
DAMEI I): = J; 
SPALTE_FREI I J) := FALSE, 
DIAGI_PREI I IrJl:= FALSE; 
DIAG2_FREI (J-Il:= FALSE, 
IF I=N THEN (* ALLE DAMEN GESETZT, LÖSUNG DRUCKEN! *) 
DRUCKELOESUNG 
ELSE (*2 IN DER NÄCHSTEN ZEILE WEITERSUCHEN *) 
SETZE_ZEILE(Ie+1); 


(* JETZT DEN LETZEN ZUG RÜCKGÄNGIG MACHEN: 
SPALTE_FREI I J]) := TRUE, 
DIAGI_FREI I 1Ie*rJ): =» TRUE, 
DIAG2_FREI [J-Il:= TRUE, 
END; 
END, (* SETZE_ZEILE *) 


BEGIN 
(% SPIELBRETT IST NOCH LEER: *) 
POR I:= 1 TO 8 DO SPALTE_FREI (I): = TRUE; 
FOR I:= 2 TO N2 DO DIAGI_FREI (I):= TRUE; 
FOR I: =-N TO N DO DIAG2_FREI (Il:= TRUE; 
LOESUNG: = 0; 
SETZE_ZEILE(1); 

END. 


Listing 13. Das Acht-Damen-Problem, ein Beispiel für einen 
rekursiven Algorithmus. 





Bild 7. Darstellung von Jahresumsätzen als Beispiel 





VAR P1,P2 : POSITION; Pl.Y:= 40; 
ADR : ADRESSE; ADR.ORT := 'MONOPOLY'; 
Nach einer solchen Deklaration ADR.STRASSE:= 'Schloßallee'; 
bezeichnet man P1, P2 und ADR als ADR.HAUSNR := 4; 
Records. Ein Record besitzt einzelne Andererseits kann man aber auch 


Felder, auf die man durch Angabe ihres 
Namens nach einem Punkt zugreift: 
P1.%:= 385 





den Record als Ganzes ansprechen: 
P1l:= P2 
Durch diese Zuweisung werden alle 
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PROGRAM UMSAETZE (INPUT, OUTPUT); 
TYPE MONAT = 1..12; 
JAHR = 1980..1985; 
UMSATZTABELLE: 
VAR PARBEN, 


LACKE: UMSATZTABELLE,; 


FUNCTION JAHRESSUMME(C J: JAHR, VAR T: 


TABELLE T: *) 


VAR M: MONAT; 
S: REAL, 


BEGIN 
S:= 0: 
FOR M: = 1 TO 12 DO S:= S + TLJ,M; 
JAHRESSUMME: = 8 

END: (4 JAHRESSUMME *) 

FUNCTION MONATSSUMME( M: 


MONAT: VAR T: 


BIS 1985 %) 


VAR J: JAHR; 
S: REAL; 


ARRAY LJAHR, MONATI OF REAL; 


UMSATZTABEI.LE): 
(* BERECHNE DIE SUMME DER MONATSUMSÄTZE IM JAHR [ 


UMSATZTABELLE): 
(® BERECHNE DIE SUMME ALLER UMSÄTZE IM MONAT M PÜR 19A0 


FOR J: = 1980 TO 1985 DO S:= S + TUL)J,M; 


MONATSSUMME: = S 
END; 


PROCEDURE GESAMTSUMME (VAR T: 


(*2 MONATSSUMME *) 


UMSATZTABELLE): REAL, 


(* BERECHNE DIE SUMME ALLER UMSÄTZE *) 


REAL; 
IN DER VAR J: JAHR; 


S: REAL; 


BEGIN 
S:= O; 


POR J: = 1980 TO 1985 DO S:= S + JAHRESSUMME()J,T); 


GESAMTSUMME: = S 
END; 


BEGIN 


(” GESAMTSUMME %) 


(* HIER WERDEN DIE UMSÄTZE FÜR FARBEN UND LACKE VORBELEGT 


REAL; 


WRITELN(' UMSATZ PARBEN 1980: ', 
WRITELN( ' UMSÄTZE LACKE JANUAR 1980-1985: '),; 


JAHRESSUMME( 1980, PARBEN); 


MONATSSUME( 1, 


LACKE); WRITELN!' UMSÄTZE LACKE UND FARBEN INSGESAMT: ‘, 
GESAMTSUMME( LACKE) + GESAMTSUMME (FARBEN)), 


END. 


Listing 14. Bearbeitung zweidimenslonaler Tabellen 


Felder im Record übertragen. Wichtig 

und charakteristisch für das Typkon- 

zept in Pascal ist die Tatsache, daß 

zusammengesetzte Typen auch mehr- 

stufig aufzubauen sind: 

VAR POSITIONEN: ARRAY [1...99] OF 

POSITION; 

Den umgekehrten Fall, daß ein 

Record aus Arrays besteht, finden Sie 

bereits im Beispiel des Typs ADRESSE. 

Dort sind die Felder NAME und VOR- 

NAME vom Typ STRING, den wir ja als 

TYPE STRING = ARRAY [1..11] 

OF CHAR; 

vereinbart hatten. Sollen viele Operatio- 

nen mit den Feldern eines Records 

durchgeführt werden, so ist die stän- 

dige Wiederholung des Variablenna- 

mens lästig. Für diesen Fall existiert die 

WITH-Anweisung: 

WITH Recordvariable DO Anweisung 

So kann man folgende Zuweisungen 

ADR.NAME :='Hugendubel'; 

ADR. VORNAME: ='"Kunigunde'; 

ADR.ORT :='7 Berge'; 

ADR.STRASSE:='7 Zwerge'; 

schreiben als: 


WITH ADR DO 

BEGIN 
NAME = 'Hugendubel'; 
VORNAME:= 'Kunigunde'; 
ORT = '7 Berge'; 
STRASSE:= '7 Zwerge'; 

END; 


Wie alles in Pascal können auch 
WITH-Anweisungen geschachtelt wer- 
den. Nach der geschachtelten Record- 
Deklaration 
TYPE DATUM = RECORD 


TAG 4 Bl; 

MONAT : 1..12; 

JAHR INTEGER; 
END; 


BANKAUSZUG = RECORD 
DATUM: DATUM; 
KONTOSTAND: REAL 
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END; 

VAR MEINBANKAUSZUG: BANKAUSZUG; 
prüft man folgendermaßen das Datum 
auf dem Bankauszug: 
WITH MEINBANKAUSZUG DO 
BEGIN 

IF KONTOSTAND >0 THEN 

WITH DATUM DO 

WRITELN(TAG,'.',MONAT,'.', 

JAHR) 
END; 


Dabei muß sich die innere WITH- 
Anweisung auf ein Feld in dem Record 
der äußeren WITH-Anweisung bezie- 
hen. Hier ist dies also das Feld MEIN 
BANKAUSZUG.DATUM. Bemerkens- 
wert sind noch die Sichtbarkeitsregeln 
für Feldnamen. Man kann ohne Na- 
menskonflikte Variablen mit dem Feld- 
namen aus der Record-Deklaration 
definieren. Der Feldname ist durch 
einen Punkt oder die WITH-Anweisung 
an den Variablennamen des Records 
gebunden. 

Am besten verdeutlicht wiederum ein 
Beispiel die Arbeit mit Records. In 
Listing 15 wird der Typ 
TYPE BRUCH = RECORD 

ZAEHLER, NENNER: INTEGER; 
END; 
definiert. Man möchte also auch gebro- 
chene Zahlen »exakt« darstellen. Nun 
lernt man aber in der Schule, daß 
123456 


245912 

dieselbe Zahl darstellen. Deshalb wer- 
den bei allen Operationen Zähler und 
Nenner gekürzt dargestellt. Zum Kür- 
zen muß man den größten gemeinsa- 
men Teiler (ggT) von Zähler und Nenner 
kennen. Beim Addieren werden die bei- 
den Brüche auf einen Hauptnenner 
gebracht, der natürlich möglichst klein 
bleiben soll. Daher ist im Programm 
auch eine Funktion zur Berechnung 








des kleinsten gemeinsamen Vielfachen 
(kgV) enthalten. Nach der Erweiterung 
der beiden Zähler ergibt sich durch 
Addieren der Zähler des Summenbru- 
ches. Wegen der teilerfremden Aus- 
gangsbrüche und der Wahl des Haupt- 
nenners spart man es sich, den Zähler 
gegen den Nenner zu kürzen. 


Die Multiplikation verläuft wie in der 
Schule nach der Regel Zähler mal Zäh- 
ler und Nenner mal Nenner. Jedoch 
werden zuvor die Brüche kreuzweise 
gekürzt, um die Produkte möglichst 
klein zu halten. Vielleicht ist es eine 
gute Denksportaufgabe, zu überlegen, 
warum nach der Multiplikation Zähler 
und Nenner teilerfremd sind. 


Die Subtraktion ist einfach auf die 
Addition zurückzuführen, ebenso wie 
die Division durch Kehrwertbildung auf 
die Multiplikation zurückführt. Bei der 
Berechnung des Kehrwertes ist jedoch 
auf eine korrekte Behandlung des Vor- 
zeichens zu achten. 


Normalerweise eignen sich zur Erläu- 
terung von Records Beispiele aus der 
kaufmännischen Datenverarbeitung, da 
man einen Record am einfachsten als 
ein Formblatt beschreiben kann, das 
verschiedene Felder enthält, die nur 
Werte gewisser Typen beinhalten dür- 
fen. 

TYPE KRAFTFAHRZEUGSCHEIN = 

RECORD 

WAGEN: KENNZEICHEN; 
WOHNORT, STANDORT: ADRESSE; 
LEISTUNG: INTEGER; 

END; 

Diese Deklaration setzt natürlich vor- 
aus, daß zuvor die Typen KENNZEI- 
CHEN und ADRESSE (zum Beispiel 
selbst als Records) definiert wurden. 

Es gibt jedoch auch Felder, die nur 
dann gültig sind, falls in einem anderen 
Feld ein bestimmter Wert steht. 





TYPE PERSONALAKTE = 


RECORD 
NAME STRING; 
VORNAME: STRING; 
CASE STAND: FAMILIENSTAND OF 
LEEDIGS U); 


VERHEIRATET,GETRENNT: 
(HEIRAT: DATUM); 


GESCHIEDEN: 
(SCHEIDUNG: DATUM; 
ALIMENTE : BOOLEAN); 


END; 
VAR AKTE1: PERSONALAKTE; 


PROGRAM BRUECHE ( INPUT, OUTPUT): 


Dieses Beispiel zeigt einen varianten 
(veränderlichen) Record. Er besteht 
aus einem festen Teil (den Feldern 
NAME und VORNAME), dem ein verän- 
derbarer Teil folgt. Dieser Teil wird durch 
das Schlüsselwort CASE eingeleitet. 
Ihm folgt ein Feldname mit Typangabe. 
In Abhängigkeit der Werte dieses skala- 
ren Typs besitzen die nachfolgenden 
Feldlisten in runden Klammern Gültig- 
keit. 

Nach der Zuweisung »AKTE 1.STAND: 
= LEDIG« sind nur die Felder NAME 


und VORNAME _ gültig. 
»AKTE1.STAND = VERHEIRATET«, so 
wird zusätzlich das Feld HEIRAT vom 
Typ DATUM relevant. Ihm darf man jetzt 
Werte des korrekten Typs zuweisen: 


Ist jedoch 


AKTEl. HEIRAT.TAG :=7; 

AKTE1. HEIRAT.MONAT:=6; 

AKTEl. HEIRAT.JAHR :=1973; 
Dieselben Felder gelten auch für 

»STAND = GETRENNT. Sollte im Laufe 

der Ehegeschichte eine Scheidung 

eintreten, so werden sich auch in der 

Personalakte gravierende Änderungen 


(# ZAEHLER MAL ZAEHLER UND NENNER MAL NENNER. VOR DER ®) 


(# MULTIPLIKATION WERDEN ZAEHLER UND NENNER GEKUERZT. ®) 


(#8 KUERZE ZUNAECHST KREUZWEISE, DAMIT PRODUKT NICHT «) 


“) 


(®* RECHNUNG MIT BRUECHEN IN DER DARSTELLUNG ZAEHLER, NENNER %) 
TYPE BRUCH = RECORD 
ZAEHLER: INTEGER; BEGIN 
NENNER : INTEGER; 
(* ZAEHLER UND NENNER IMMER “) (# ZU GROSS WIRD 
(* TEILERFREMD, NENNER POSITIV ®) KUERZE (A. ZAEHLER, B.NENNER); 
END; KUERZE (B. ZAEHLER, A.NENNER); 
VAR A, B, SUMME, DIFFERENZ, PRODUKT, QUOTIENT: BRUCH, 
C. ZAEHLER: = A. 2AEHLER * B. 2AEHLER:; 
PROCEDURE KUERZEI( VAR A, B: INTEGER): C.NENNER : = A. NENNER 


(* KUERZE A UND B DURCH IHREN GROESSTEN GEMEINSAMEN TEILER *) 


VAR X: INTEGER, 


PUNCTION GGT (X,Y: INTEGER): 


INTEGER, 
(* BERECHNE DEN GRÖSSTEN GEMEINSANEN TEILER VON X UND Y *) 


n" B. NENNER; 


(* ZÄHLER UND NENNER VON C SIND HIER NOCH TEILERYFREMD ") 


END; 


PROCEDURE KEHRWERT(VAR A: 
(* BERECHNE DEN KEHRWERT VON A. 


(* MULTIPLIZIERE *) 


BRUCH), 
BEACHTE DIVISION DURCH O0 


VAR H: INTEGER; 
BEGIN UND VORZEICHEN *) 
IF Y>»X THEN 
BEGIN H: =X, X: =Y; Y:=H END; VAR T: INTEGER; 
REPEAT 
H:; = X MOD Y; BEGIN 
X:= Y;, Y: = H T:= A. ZAEHLER,; 
UNTIL H = 0, IF T=0 THEN WRITELN'‘ DIVISION DURCH NULL!') 
GGT: = X; ELSE 
END; (® GGT *) IF TO THEN 
BEGIN 
BEGIN (* KÜRZE %) A. ZAEHLER: = A. NENNER, 
X: = GGT(ABS(A),B); A. NENNER : = T 
IE X<c>»1 THEN END 
BEGIN ELSE 
A:= A DIV X; BEGIN 
B:= B DIV X; A. ZAEHLER: = -A. NENNER, 
END; A. NENNER : = -T; 
END, (* KÜRZE *) END; 
END, (% KEHRWERT *) 
FUNCTION KGV(X,Y: INTEGER): INTEGER, 


(®* BERECHNE DAS KLEINSTE GEMEINSAME VIELFACHE VON X UND Y *) 


PROCEDURE LESEN (VAR Aı BRUCH); 


VAR U,V: INTEGER, 
BEGIN 
U:= X; V:= Y 
WHILE X<>»Y DO 
IP X>Y THEN 
BEGIN X: = X-Y: 
ELSE 
BEGIN 


U: = U+V END 
Y:» Y-X, V:= V+U END; 


KGVY: = (U+V) DIV 2 


(#e LIEST EINEN "BRUCH VON DER TASTATUR. WIRD 


NACH #) 


(«e DEM ZAEHLER’ DAS ZEILENENDE ERREICHT, SO WIRD »#) 
(«e DER NENNER GLEICH EINS GESETZT “) 


BEGIN 
WITH A DO 
BEGIN 


READ( A. ZAEHLER): 
IF EOLN THEN A. NENNER: = 1 
ELSE READLN{ A NENNER),; 


END; 


KUERZE( A. ZAEHLER, A. NENNER); 


(* ÜBRIGENS IST GGTTX,Y) = X END, (* LESEN *) 
END; (* KGV 9%) 
PROCEDURE DRUCKEN (A: BRUCH), 
PROCEDURE ADDIERE (A, B: BRUCH. VAR C: BRUCH); 
(“4 ADDIERE DIE BRÜCHE A UND B ZUM BRUCH C *) BEGIN 
WITH A DO 


VAR HN: 


BEGIN 
WITH C DO 
BEGIN 
(@& HAUPTNENNER BERECHNEN #) 
HN i= KGV(A.NENNER, B.NENNER); 
NENNER = HN; 
(8 AUF HAUPTNENNER BRINGEN +) 


INTEGER, (* HAUPTNENNER *) 


ZAEHLER = A. ZAEHLER = (HN DIV A.NENNER) + B.ZAEHLER « 


(HN DIV B.NENNER) 3; 


END; (# WITH «) 

END; (# ADDIERE «) 
PROCEDURE SUBTRAHIERE(A,B: BRUCH; VAR C: 
(#8 SUBTRAHIERE B VON A. ERGEBNIS INC 
BEGIN 

B. ZAEHLER: = - B. ZAEHLER: 

ADDIERE(A,B,C) 
END; (* SUBTRAHIERE *) 
PROCEDURE MULTIPLIZIERE( A, B: BRUCH: VAR C: 


IF NENNER = 1 THEN WRITELN( ZAEHLER) 


ELSE 


WRITELNI ZAEHLER, '/', 
(* DRÜCKEN 4) 


END; 


BEGIN 


WRITELN(Ü' RECHNEN MIT BRUECHEN: 


REPEAT 
WRITEL'A = '),; 
RRITEU'B = '),; 


NENNER) 


(ENDE MITA = 0)'); 


LESEN( A), 
LESEN(B), 


ADDIERE(A,B, SUMME), 


BRUCH), WRITEC'A + B = 


“Js DRUCKEN SUMME); 


SUBTRAHIERE(A,B, DIFFEREN?Z); 


WRITEU'A - B = 


‘3%, DRUCKEN: DIFFERENZ),;' 


MULTIPLIZIERE(A, B, PRODUKT); 


WRITEL'A * B= '); 
MULTIPLIZIERE(A, B, QUOTIENT); 
')s DRUCKEN: QUOTIENT): 


KEHRWERT(B), 
WRITEU'A / B = 


DRUCKEN! PRODUKT); 


UNTIL A. ZAEHLER = 0; 


BRUCH), END. 


Listing 15. Bruchrechnung mit Records in Pascal 


ADD 
( na? 
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vollziehen. Mit »AKTE1.STAND := GE- 
SCHIEDEN« wird das Feld HEIRAT un- 
gültig und statt dessen das Feld SCHEI- 
DUNG (ebenfalls ein Datum) mit dem 
booleschen Feld ALIMENTE wirksam. 

Offensichtlich kann man mit varianten 
Records sehr gut die Tatsache wieder- 
geben, daß gewisse Attribute eines 
Objektes nur unter gewissen Randbe- 
dingungen relevant sind. Dies wird 
dadurch erreicht, daß zu jedem Zeit- 
Punkt immer nur eine der Feldlisten in 
Klammern hinter den Konstanten gültig 
ist. Diese zusätzlichen Informationen 
nutzt der Pascal-Compiler, um wie- 
derum Speicherplatz zu sparen. Er legt 
alle Varianten (also alle Feldlisten, die zu 
verschiedenen Werten des Auswahlfel- 
des gehören) an dieselbe Speicherpo- 
sition. Zur Laufzeit bestimmt dann das 
Auswahlfeldnach CASE (engl. tagfield), 
wie der Inhalt des Speichers zu inter- 
pretieren ist. Alle gemeinsamen Felder 
aus dem festen Teilsind eindeutig, wäh- 
rend die Felder im varianten Teil sich 
gegenseitig überlappen. 


Diese Überschneidung muß beach- 
tet werden, wenn ein Wechsel des Aus- 
wahlfeldes anfällt. Eine Anwendung 
varianter Records zeigt Listing 16. 
Bekanntermaßen kann man einen 
Punkt in der Ebene auf zwei verschie- 
dene Methoden darstellen: 


PROGRAM KOORDINATEN ( INPUT, OUTPUT): 
(“* RECHNUNG MIT POLAR- UND RECHTWINKLIGEN 


(% DARGESTELLT DURCH VARIANTE RECORDS IN 


CONST EPSILON = 1.0E-7; 
TYPE KOORDINATENTYP = (RECHTWINKLIG, 
KOORDINATE = RECORD 
CASE TYP: 
RECHTWINKLIG: (X,Y 
POLAR STIGIETER 
END; 


POLA 


VAR P: KOORDINATE,; 


PROCEDURE HOLEPUNKT (VAR P: KOORDINATE); 
BEGIN 
REPEAT 
WRITBL'C-ARTESISCH ODER P-OLAR ?'); 
READLN{CH) 
UNTIL CH IN I 'C','P'); 


WITH P DO 
IF CH = 
BEGIN 
TYP: = RECHTWINKLIG; 
WRITEU'X = '). READLNIY); 
WRITEL'Y = '‘), READLN(Y) 
END 
ELSE 
BEGIN 
TYP. = CARTESISCH, 
WRITEU'L 9. 
*) URSPRUNG 
WRITEU'PHI = 
END 
(2 HOLEPUNKT *) 


‘C' THEN 


READLN(L); 

‘); READLNPHI): 

END; 

PROCEDURE UMRECHNUNG (VAR P: KOORDINATE); 

(* UMRECHNUNG DER BEIDEN KOORDINATENTYPEN 
VAR R: REAL; 


BEGIN 


KOORDINATENTYP OF 


(®* ABSTAND VOM KOORDINATEN 


(®* WINKEL ZUR X-ACHSE *) 








In rechtwinkligen X- und Y-Koordina- 
ten oder mit Polarkoordinaten, durch 
Angabe der Entfernung des Punktes 
zum Koordinatensprung (L) und des 
Winkels zur X-Achse (PHiI). 

Da sich eine Darstellungsform für 
gewisse Anwendungen jeweils besser 
eignet, wird in diesem Programm mit 
varianten Records ein Wechsel zwi- 
schen beiden Darstellungen zugelas- 
sen: 


TYPE KOORDINATE = 
RECORD 
CASE TYP :KOORDINATENTYP OF 
RECHTWINKLIG: 
(X,Y: REAL); 
POLAR: 
(L,PHI: REAL); 
END; 


Es ist zu beachten, daß die Angabe 
des Typs des Auswahlfeldes (hier 
KOORDINATENTYP) durch einen Typ- 
namen erfolgen muß. Jenach dem Wert 
von Typ ist also die Koordinate durch X 
und Y oder L und PHI bestimmt. Im übri- 
gen Programm können Sie neben dem 
Nutzen der WITH-Anweisung bei der 
Arbeit mit Records auch den Vorteil der 
Case-Anweisung bei varianten Records 
erkennen. Indem man vor dem Zugriff 
auf eine Variante eine CASE-Anweisung 
setzt, die die Konstanten aus der 


KRITH P DO 
CASE TYP OF 
RECHTWINKL 
BEGIN 
R: & 
PHI: 
u 
TYP; 
END; 
POLAR; 
BEGIN 


KOORDINATEN, 
PASCAL. 


2) 


“) 


(2 RUNDUNGSFEHLERGRENZE *) 


RD; 


: REAL); 
HI: REAL); 


R 

Y 

X 

TYP 
END; 


END; 
END: 


FUNCTION BETRAG( 
BEGIN 





Record-Deklaration wiederholt, ist man 
vor unerlaubten Zuweisungen wie 
P.TYP:= POLAR; 

P.X := 39.4; 

geschützt. Erwähnenswert ist noch die 
Ende-Bedingung der Repeat-Schleife 
UNTIL BETRAG(P) <= EPSILON; 

Das Programm soll beendet werden, 
wenn die Entfernung des Punktes vom 
Ursprung Null ist. Da jedoch alle reellen 
Zahlen nur mit Rundungsfehlern 
berechnet werden können, verwendet 
man zwischen reellen Zahlen nie den 
Test auf Gleichheit (A=B), sondern nur 
eine Prüfung der Form ABS(A-B) <= 
EPSILON mit einer Konstanten EPSI- 
LON, die eine Schranke für die Run- 
dungsfehler auf dem jeweiligen Rech- 
ner angibt. Die Berücksichtigung dieser 
Regel hilft eine Reihe häufiger Fehler zu 
vermeiden. 

Nun sind wir am Ende unserer Einfüh- 
rung in das Programmieren mit Funktio- 
nen, Prozeduren und Datentypen ange- 
langt. Zur Vertiefung der gewonnenen 
Erkenntnisse sei es dringend angera- 
ten, ein wenig mit den abgedruckten 
Beispielen herumzuexperimentieren, 
sie zu erweitern und abzuändern. Denn 
auch in Pascal gilt der altbekannte 
Spruch vom Meister, den man nur durch 
Übung... 


(Florian Matthesj/er) 


IG: 


SORTIX*X + Yary)ı 
ARCTANY/I); 

R; 

POLAR; 


SINIPHI)“L; 
COS( PHI)*L; 


R; 
RECHTWINRKLIG 


(%2 CASE & WITH *) 
(“ UMRECHNUNG *) 


P: KOORDINATE): REAL; 


IF P.TYP = RECHTWINKLIG THEN 
BETRAG: = SQRT! SQORLP.X) + SQRIP.Y) ) 


ELSE 


BETRAG: = P.L 
(* BETRAG *) 


PROCEDURE DRUCKEPUNKT (P: 


BEGIN 
WITH P DO 
CASE TYP OF 


RECHTWINKLIG: 


POLAR 

END; 
END; 

BEGIN 

REPEAT 

HOLEPUNKTLP) 

DRUCKEPUNKT( 

A) 

DRUCKEPUNRTE 


KOORDINATE); 


WRITELNE'X = ' 
: WRITELNI'L = 


Re 
', PHI = 


"1% 
°,PHI); 


1% CASE *) 
(* DRUCKEPUNKT *) 


P); 


UMRECHNUNG( P); 


P); 


UNTIL BETRAG(P)<= EPSILON; 


Listing 16. Koordinatenumrechnung mit varlanten Records 








Dateiverwaltung mil 


at man große Datenmengen zu 

verarbeiten, so reicht der 

Arbeitsspeicher des Compu- 
ters im allgemeinen nicht aus. Außer- 
dem gehen alle Daten im Hauptspei- 
cher beim Ausschalten des Computers 
verloren. Um langfristig große Datenbe- 
stände zu konservieren, benötigt man 
externe Speichermedien (Floppy-Disk, 
Festplatten, aber auch Band- und Kas- 
settenlaufwerke). 

Ein großes Problem ist nun die Tat- 
sache, daß es fast so viele Betriebs- 
systeme wie Computertypen gibt. Da 
jedoch Pascal sowohl auf Mikrocompu- 
tern als auch Großrechenanlagen im- 
plementiert ist, muß ein möglichst 
systemunabhängiges Konzept zur Dar- 
stellung externer Speicher in der Spra- 
che gefunden werden. Diese Lösung 
besteht in der Formalisierung des Prin- 
zips der sequentiellen Dateien, dieman 
als den kleinsten gemeinsamen Nenner 
aller Dateiverwaltungssysteme be- 
zeichnen kann. 

Mit der Deklaration 
TYPE ZAHLENDATEI = 
INTEGER; 

VAR D: ZAHLENDATEI; 
wird ein File D vereinbart, dessen Kom- 
ponenten aus ganzen Zahlen beste- 
hen. Allgemein kann nach den Schlüs- 
selworten FILE und OF jeder beliebige 
(auch zusammengesetzte) Typ folgen. 
Wie in einem Array besitzen alle Kom- 
ponenten denselben Typ. Jedoch kann 
ein File (praktisch) beliebig viele Kom- 





FILE OF 


Pascal 


Dieser Beitrag beschäftigt sich 
mit dem Datei-Begriff von Pascal 
und gibt Hinweise und Beispiele 
für die effiziente Verwaltung gro- 
Ber Datenmengen. 


spiel) steht über der ersten Kompo- 
nente und besitzt einen undefinierten 
Wert (siehe Bild 2a). Eine Zuweisung wie 
DI := 99; 

füllt den Puffer mit dem angegebenen 
Wert (Bild 2b). Natürlich erfolgen auch 
bei Files die üblichen Typüberprüfun- 
gen, so daß der Compiler die Zuwei- 
sung »D! :='K'e als fehlerhaft erkennt. 
Mit PUT(D) wird der Wert des Puffers in 
das File geschrieben und der Schreib- 
zeiger eine Position weiter gesetzt. 
Jede Wiederholung der Schritte Wert- 
zuweisung an den Puffer und Puffer 
schreiben erweiter das File um jeweils 
eine Komponente (Bild 2c): 

Di =223PUT(D); 

Es ist beim sequentiellen Schreiben 
nicht möglich, eine bereits geschrie- 
bene Komponente wieder zu korrigie- 
ren, da dazu der Schreibzeiger rück- 
wärts bewegt werden müßte. 

2. Sequentielles Lesen 

Durch den Aufruf der Standardproze- 
dur RESET mit der Filevariablen als 
Parameter wird die Puffervariable auf 
den Wert der ersten Komponente im 





File gesetzt (Bild 2d). Die Puffervariable 
kann man wie eine »normale« Variable in 
Ausdrücken verwenden und so das File 
Stück für Stück bearbeiten. Im Beispiel 
ergibt die Befehlsfolge 

RESET(D); WRITE(DI, D!+5) 

die Ausgabe »99 104«. Aufruf GET(D) 
setzt die Puffervariable wiederum eine 
Position weiter, so daß Di! den Wert 43 
enthält (Bild 2 e). Nach einem erneuten 
Aufruf von GET(D) steht das Lesefen- 
ster hinter der letzten belegten Kompo- 
nente (Bild 2f) und die Puffervariable ist 
undefiniert. Um festzustellen, ob das 
Lesefenster über einem definierten 
Wert steht oder sich hinter dem 
Fileende befindet, dient die Standard- 
funktion 

EOF(Filevariable) 

So lieferte EOF(D) den booleschen 
Wert TRUE, falls DI sich in der letzten 
Komponente (wie in Bild 2f) befindet. 
Insbesondere ist EOF=TRUE, falls man 
ein leeres File mit RESET zum Lesen 
eröffnet. Da im Beispielprogramm in 
Listing 1 die Länge des Files unbekannt 
ist, wird eine Schleife der Form 
WHILE NOT EOF(D) DO 
verwendet. Übrigens ist per Definition 
EOF(D)=TRUE, falls auf das File D 
(nach RESET(D)) geschrieben wird. 

Man kann ein File in beliebiger Rei- 
henfolge mit RESET und REWRITE zum 
sequentiellen Lesen und Schreiben 


- 


ponenten umfassen, die nur in fester 
Reihenfolge adressiert werden können. 
Zu jedem Zeitpunkt ist immer nur eine 
Komponente erreichbar. Diese aktuelle 
Komponente wird im obigen Beispiel 
mit Di bezeichnet und ist vom Typ INTE- 
GER. 

Um nun weitere Komponenten zu 
erreichen, kann man die aktuelle Kom- 
ponente (Puffervariable) Di wie ein 
Fenster über das gesamte File ver- 
schieben (siehe Bild 1). Ein konkretes 
Beispiel für das Schreiben und Lesen 
eines Files zeigt Listing 1. Es demon- 
striert die beiden Methoden des 
Zugriffs auf Files in Pascal. 


‚ _OUTPU 
: SETLEE OF 


: INTEGER; 


T): 
INTEGER; 


(* ZAHLEN VON DER TASTATUR AUF FILE SCHRIEIBEN: *) 
REWRITE( ZAHLENDATEI); (* SEQUENTIELL SCHREIBEN *) 
REPEAT 
READLN(CX); 
ZAHLENDATEI : = X; 
PUT( ZAHLENDATEI); 
UNTIL X=0; 


(* PUFFER MIT ZAHL FÜLLEN *) 
(* PUFFER SCHREIBEN n) 


(%* ZAHLEN VOM FILE LESEN UND SCHREIBEN: *) 
RESETCZAHLENDATEI); (* SEQUENTIELL LESEN %) 
WHILE NOT EOF( ZAHLENDATEI) DO (* SOLANGE NICHT HINTER DEM DATEIENDE * 
BEGIN 
X: = ZAHLENDATEI'; 
HRITELNY); 
GET(ZAHLENDATEI); 
END; 


1. Sequentielles Schreiben 

Um ein File zu erzeugen, muß man die 
Standardprozedur REWRITE mit der 
Filevariablen (im Beispiel also D!) aufru- 
fen. Dadurch werden alle Komponenten Eh 
gelöscht, die eventuell zuvor im File exi- 
stierten. Das Schreibfenster (D1 im Bei- 


AR 


(“* PUFFER AUSLESEN *) 


(%* PUFFER AUF NÄCHSTE ZAHL *) 


Listing 1. Grundlegende Flleoperatlonen 
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d) RESET (D) 


Bild 2. Operationen in einem File (a bis f) 


PROGRAM MERGE( INPUT, OUTPUT), 
(* 2 PHASEN 3-BAND NATÜRLICHES MISCHSORTIERTEN *) 


TYPE ITEM = RECORD 
KEY: INTEGER,; (A ODER CHAR, REAL, ARRAU..ı OF CHAR *) 


(%* HIER KÖNNEN WEITERE FELDER STEHEN *) 
END; 


TAPE = FILE OF ITEM 


VAR C : TAPE; (* DIESES FILE WIRD SORTIERT *) 
BUF: ITEM; (* HILFSVARIABLE ZUR EINGABE *) 


PROCEDURE LIST (VAR F: TAPE), 
(% ZEIGE DEN INHALT VON F AN *) 
VAR X: ITEM; 
BEGIN 
RESET(F); 
RHILE NOT EOF(F) DO 
BEGIN 
X.KEY:= F'.KEY; 
GET(F), 
WRITE(X. KEY: 4) 
END; 
RRITELN 
END, (* LIST *) 


PRCEDURE NATURALMERGE; 
(* SORITERE DAS FILE C (GLOBAL) IN MEHREREN DURCHLÄUFEN. 
(* DIE PROZEDUR BENUTZT ZWEI HILFSFILES A UND B. 
VAR L : INTEGER;, (* ANZAHL DER LÄUFE AUF C 
EOR: BOOLEAN (* END OF RUN, ENDE DES LAUFES 
A,B: TAPE, GA SHTEESEILES 


PROCEDURE COPY(VAR X,Y: TAPE), 
(* KOPIERE RECORD VON X NACH Y, AKTUALISIERE EOR 
VAR BUF: ITEM; 
BEGIN 
BUF. KEY: = X. KEY; GET(X); 
Y’.KEY:= BUF. KEY; PUT(Y); 
IF EOF(X) THEN EOR: =TRUE 
ELSE EOR: =BUF. KEY>X". KEY 
END; (* COPY ») 


PROCEDURE COPYRUN (VAR X,Y: TAPE),;, 
(4 KOPIERE KOMPLETTEN LAUF VON X NACH Y *%) 
BEGIN 
REPEAT COPY(X,Y) UNTIL EOR 
END, (* COPYRUN *) 


PROCEDURE DISTRIBUTE, 
t{* KOPERE LÄUFE VON C ABWECHSELND AUF A UND B *%) 
BEGIN 

REPEAT 


Listing 2. Natürliches Mischsortieren mit Flies 
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eröffnen, jedoch ist zu beachten, daß 
jeder Aufruf mit REWRITE alle im File 
existierenden Komponenten löscht. 
Möchte man ein bestehendes File am 
Ende erweitern, so muß man zunächst 
das gesamte File mit GET und PUT auf 
ein anderes File kopieren, an das man 
dann mit PUT die neuen Komponenten 
anfügt. Sollten Sie beim Test des Pro- 
grammes in Listing 1 nicht das 
gewünschte Ergebnis erhalten, so liegt 
das wahrscheinlich daran, daß der 
Compiler für Ihren Computer zusätzli- 
che Anweisungen zur Arbeit mit Files 
benötigt. 

In Turbo-Pascal zum Beispiel verlangt 
eine Filevariable vor dem ersten RESET 
oder REWRITE mit der Prozedur 
ASSIGN einen 
ASSIGN(D, "'DATEN.SEQ') 

Außerdem sollten in Turbo-Pascal 
unter dem Betriebssystem PC-DOS alle 
Files (auch solche, von denen nur gele- 
sen wurde) am Ende der Verarbeitung 
mit CLOSE geschlossen werden: 
CLOSE(D) 

Werfen Sie bei Schwierigkeiten also 
zunächst einen Blick in die Handbü- 
cher. Neben diesem zusätzlichen Auf- 
wand bei der Behandlung sequeniieller 
Dateien bieten viele Compiler die Mög- 
lichkeit, die Schreib- und Leseposition 
in einem File gezielt zu setzen. Mit 
SEEK(D,400) 
zeigt die Puffervariable auf die 400. 
Komponente im File. Arbeitet man mit 
einer Festplatte, so läßt sich ein File wie 
ein Array variabler Größe mit hundert- 
fach langsamerer Zugriffszeit verwen- 
den. 

Zurück zum Pascal-Standard. Eine 
grundlegende Operation mit Files ist 
das Sortieren. Für das Sortieren von 
Arrays gibt es eine Vielzahl von Algorith- 
men, deren Verständlichkeit oft umge- 
kehrt proportional zur Sortiergeschwin- 
digkeit ist. Falls Sie Pascal und nicht das 
Sortieren auf externen Speicherme- 
dien lernen wollen, ist in Listing 2 ein 
Programm zum sogenannten »3-Band-, 
2-Phasen-Mischsortieren« abge- 
druckt. 


Natürlich kann man ein File dadurch 
sortieren, daß man es komplett in den 
Speicher lädt, dort sortiert und es 
anschließend geordnet zurückschreibt. 
Reicht jedoch (was häufig der Fall ist) 
der Arbeitsspeicher nicht aus, so hat 
man von jedem File in jedem Schritt nur 
die Komponente der Puffervariablen 
zur Verfügung. Um ein File umzusortie- 
ren, benötigt man also mindestens drei 
Files. Von einem File wird sequentiell 
gelesen, während die gelesenen Werte 
in möglichst geschickter Reihenfolge 
auf die beiden übrigen Files verteilt wer- 
den (Prozedur DISTRIBUTE). Anschlie- 
Bend werden die beiden erzeugten 
Files zum Lesen eröffnet und auf das 
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ursprüngliche Lesefile zurückgeschrie- 
ben (Prozedur MERGE), wobei jeweils 
zwei sortierte Teilsequenzen zu einer 
sortierten Sequenz auf dem Ausgangs- 
file verbunden werden. 

Durch eine Wiederholung der zwei 
Phasen Verteilen und Mischen (dies ist 
der Fachausdruck für das Zusammen- 
fassen zweier teilweise geordneter 
Files zu einem dritten, ebenfalls geord- 
neten File) erhält man schließlich ein 
sortiertes File. Ein Beispiel soll das Ver- 
halten des Programmes verdeutlichen: 
C= (143275 6 8) verteilt ergibt 


nn 
I IS 


gemischt ergibt 
2 7) verteilt ergibt 
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SNwrun 

"uam 
NaADMNn 
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Te | En u | u |) 
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DD m WW 


gemischt ergibt 
Ol 258314,546 7 8) 

Noch ein paar Worte zur Theorie: 
Eine geordnete Teilfolge innerhalb 
eines Files wird als Lauf (englisch run) 
bezeichnet. So besteht die Folge 
1,4/3/2,7/5,6,8 
aus Läufen. Demzufolge werden mit 
DISTRIBUTE Läufe von C abwechselnd 
nach AundB verteilt, und anschließend 
mit MERGE Läufe auf A und B zu Läufen 
auf C zusammengefaßt. Die Variable L 
zählt die Anzahl der Läufe auf ©. IstL=1, 
so muß also C aufsteigend geordnet 
sein. 

Das Programm selbst zeigt praktisch 
alle Operationen, die mit Files in Pascal 
möglich sind. Zunächst wird ein 
Recordtyp ITEM vereinbart, der ein 
Schlüsselfeld KEY vom Typ INTEGER 
besitzt. Natürlich könnte an dieser 
Stelle auch ein anderer skalarer Typ 
oder auch der Typ ARRAY[1..N] OF 
CHAR stehen. Dann interpretiert der 
Compiler alle Vergleichsoperationen 
mit >=« und »>>« korrekt. 

Anschließend wird der eigentliche 
Filetyp TAPE deklariert. Jede Kompo- 
nente der Files besteht also aus einem 
Record, so daß mit jedem Aufruf von 
PUT und GET ein kompletter Record 
zwischen Puffervariable und File über- 
tragen wird. 

C bezeichnet das zu sortierende File, 
das am Programmanfang in einer 
REPEAT-Schleife mit einer Folge gan- 
zer Zahlen gefüllt wird. Die Prozedur 
LIST zeigt, daß man auch Files als Para- 
meter übergeben kann. Dabei muß man 
jedoch Variablenmeter verwenden. In 
LIST wird zunächst das File F zum 
Lesen eröffnet und anschließend in 
der üblichen Weise mit einer WHILE- 
Schleife ausgelesen. Hinter dem 
Namen NATURALMERGE verbirgt sich 
die eigentliche Prozedur zum Sorlieren. 
Den Beginn und das Ende des Anwei- 
sungsteils der Prozedur kennzeichnen 
Kommentare. Sicher ist Ihnen schon 
aufgefallen, daß man ein größeres File 
in Pascal am besten von hinten liest, da 
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COPYRUNIC, A); 


IF NOT EOF(C) THEN COPYRUN(C, B), 


UNTIL EOP(C),; 
END, (* DISTRIBUTE *) 


PROCEDURE MERGE, 
(* MISCHE FILE A UND B ZU FILE C. 


PROCEDURE MERGERUN; 


L (GLOBAL) ZÄHLT DIE LÄUPE *) 


(® MISCHE LÄUFE VON A UND B ZU LÄUFEN AUF C *) 


BEGIN 
REPEAT 
IF A’. KEY<B . KEY THEN 
BEGIN 
COPY(A,C); 
IF EOR THEN COPYRUN(B,C) 
END 
ELSE 
BEGIN 
COPY(B,C); 
IF EOR THEN COPYRUN(A,C) 
END 
UNTIL EOR; 
END; (* MERGERUN A) 


BEGIN (* MERGE *) 
L: = 0; 
(% ZUNÄCHST FILES MISCHEN, 
REPEAT 
MERGERUN; L: =L+1 
UNTIL EOF(A) OR EOF(B), 


(* KLEINEREN SCHLÜSSEL KOPIEREN *) 


BIS EINES ZU ENDE: *) 


(* JETZT DEN REST VOM JEWEILIGEN PILE KOPIEREN *) 


WHILE NOT EOF(A) DO 
BEGIN 
COPYRUN(A,C); 
L: =L+1 
END; 
WHILE NOT EOF(B) DO 
BEGIN 
COPYRUN: B,C); 
L: =L+1 
END; 
END, (* MERGE *) 


BEGIN (* NATURALMERGE *) 


(* ABWECHSELND VERTEILEN UND MISCHEN, BIS NUR 


REPEAT 
REWRITE(A); 
DISTRIBUTE; 
RESET( A); RESET(B),; 
MERGE,; 
LIST(C); 

UNTIL L=e1; 

END; (* NATURALMERGE *) 


REWRITE(B),; 


BEGIN (* HAUPTPROGRAMM *) 


RESET(CC); 


REHRITE(C) 


EIN LAUF AUF C IST *) 


(* VON C NACH A UND B *) 


(* NUR ZUR VERDEUTLICHUNG *) 


WRITELN!' SORTIEREN EINES SEQUENTIELLEN FILES: '), 


WRITELNt!' EINGABEZAHLEN: 


REHRITE(C): 
READ( BUF. KEY); 
REPEAT 
C’.KEY: = BUF. KBY; 
READ( BUF. KEY) 
UNTIL BUF. KEY=0; 


PUT(C),; 


LIST(C), 
NATURALMERGE; 
END. 


(* SORTIERE C *) 


(MIT 0 ABSCHLIESSEN) '), 


(* AUF C SCHREIBEN 4) 


(* ZUR KONTROLLE EINGABEZAHLEN ANZEIGEN *) 


Listing 2. Natürliches Mischsortieren mit Files (Schluß) 


durch die Schachtelung der Prozedu- 
ren die Anweisungsteile des Hauptpro- 
grammes und der wichtigen Prozedu- 
ren eben nach »hinten« wandern. 
NATURALMERGE selbst besteht, 
wie bereits besprochen, im wechsel- 
seitigen Aufruf der beiden Phasen 
DISTRIBUTE und MERGE, bis C nur 
noch einen Lauf umfaßt. In der Hierar- 
chie der Prozeduren steht die Prozedur 
COPY am weitesten unten. Sie kopiert 
eine Komponente vom FileX zum File Y. 
Um das Ende eines Laufes zu erken- 
nen, findet hier die boolesche Variable 
EOR (end of run, Ende des Laufs) 
Anwendung. So istnach der Zuweisung 








EOR:= BUF.KEY >XI.KEY 
die Variable EOR = TRUE, falls das Feld 
KEY im Record BUF größer als das ent- 
sprechende Feld in der Puffervariablen 
des Files X ist. Danach jedem Durchlauf 
die bisher erreichte Sortierung auf dem 
File C angezeigt wird, sehen Sie mit den 
folgenden Testdaten die Funktions- 
weise des Programmes am deutlich- 
sten: 
8,7,6,5,4,3,2,1,0 

Als nächstes wenden wir uns einem 
speziellen Typ von Files zu. Während 
die Files, die mit PUT und GET erzeugt 
werden, die Daten Byte für Byte wie im 
Speicher darstellen, ist es oft sinnvoll, 
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Ein- und Ausgaben zu verwenden, die 
ein Mensch verstehen kann. Konkret 
gesprochen stellt man sich unter der 
Zahl 12345 die Zeichenfolge »12345« 
und nicht etwa zwei Byte ($30 und $39 
hexadezimal) vor. 

Da Files, die aus Zeichenfolgen 
bestehen, eine große Rolle spielen, exi- 
stiert in Pascal ein vordefinierter Typen- 
bezeichner 
TYPE TEXT = FILE OF CHAR; 

Mit der Deklaration 

VAR F: TEXT; 

können neben den Operationen RESET 
und REWRITE auf das Textfile F auch 
formatiert Werte ein- und ausgegeben 
werden. Das Prinzip besteht darin, den 


PROGRAM TEXTFILES (INPUT, OUTPUT); 


PROCEDURE FORMAT( VAR EINGABE, 


AUSGABE: 


Prozeduren READ, READLN, WRITE 
und WRITELN als ersten Parameter 
eine Filevariable zu übergeben, von der 
die Eingabe kommt oder auf welche die 
Ausgabe erfolgen soll: 

(1) WRITE(F,AUSDRUCK : n) 

Mit diesem Prozeduraufruf wird der 
Ausdruck vom Typ INTEGER, REAL, 
CHAR oder BOOLEAN auf das File F in 
ein Feld mit einer Mindestlänge von n 
Zeichen geschrieben. Ist die Länge des 
auszugebenden Wertes größer als n, 
so wird n ignoriert: 

WRITE(123456 : 10); WRITE('*': 3) 
erzeugt also folgende Ausgabe: 
were 

Ist der Ausdruck vom Typ REAL, so 


TEXT, RECH1IS: INTEGER);: 


(* FORMATIERE VON EINGABE NACH AUSGABE AUF RECHTE RAND IN DER SPALTE 


(* RECHTS. LEERE ZEILEN, 
(* VERÄNDERT. 


CONST SPACE = ' 


ODER ZEILEN MIT NUR EINEM WORT WERDEN NICHT 


TYPE LINEINDEX 1, SEREND,, 
VAR LINE ARRAY ULINEINDEX]) OF CHAR, 
BIS,I: LINEINDEX; 
ZEILE: INTEGER, (* 
3 : INTEGER: 
P.W INTELGER.: 
T : INTEGER, 


LFD. ZEILENNUMMER 
ANZAHL DER EINZUFÜGENDEN LEERZEICHEN IN ZEILE 
ANZAHL DER LEERZEICHEN NACH JEDEM WORT 
INDEX DES WORTES, NACH DEM ZUM 1. MAL Q LEER- 
ZEICHEN EINGEFÜGT WERDEN SOLLEN 
‚N :  INTEGER, ANZAHL DER WORTE IN DER ZEILE 
PROCEDLUNE READLINE<C VAR LASTCOLUMN. INTEGER, VAR WORDS: INTELGER), 
KOMPLETTE ZEILE EINLESEN UND IN LINE (GLOBAL) SPEICHERN 
IN LASTCOLUMN STEHT DAS LETZTE ZEICHEN UNGLEICH SPACE IM 


TEXT. 
LEERZEICHEN GETRENNTEN 
VAR NWASSPACE, 
I 


ISSPACE: 


HINTER DEM TEXT EIN SPACE. 


WORD ZÄHLT DIE DURCH 
WORTE. 


BOOLEAN, 
LINEINDEX; 


CH 
BEGIN 
l: =1; WASSPACE: = TRUE; 
WHILE NOT EOLN( EINGABE) 
BEGIN 
READ(U EINGABE, CH); LINEII): = 
ISSPACE: = CH=SPACE, 
IE NUT ISSPACE THEN 
BEGIN 
LASTCOLUMN: = |, 
IF WASSPACE THEN WORDS: = WORDS +1; 
END; 
WASSPACE: = 
END, 
LINEULASTCOLUMN +1]: = SPACE, 
END: (* READLINE A) 


CHAR, 


WORDS: = 0; 
DO 


LASTCOLUMN: =0; 


CH; 


(4 WORTANFANL A) 


ISSPACE,;, I:= 1+r1 


READLN(EINGABE), 


PRÜOCEDURE COPYWORD; 
(4 Ab DER MOMENTANEN POSITION IN LINE WORT MIT VORLAUFENDEN SPACES *) 
(A BIS ZUM NÄCHSTEN SPACE AUSGEBEN “) 
BEGIN 
WHILE LINEII)=SPACE DO 
BEGIN WRITE AUSGABE, SPACE); 
REPEAT 
WRITE( AUSGABE, LINELI)); 
UNTIL LINELI]=SPACE; 
END; (* COPYHORD *) 


I:= Ir+1i END; 


I: =1I#1 


PROCEDURE INSERTSPACES(N: INTEGER), 
(* N LEERZEICHEN AUSGEBEN *) 
BEGIN 

IF NO THEN WRITE (AUSGABE, 
END, (* INSERTSPACES *) 


BEGIN (* FORMAT :) 
RESET( EINGABE); 
ZEILE: = 0; 


SPACE : N 


REWRITE( AUSGABE); 


WHILE NOT EOF( EINGABE) 
BEGIN 

READLINE(BIS,N); 

S: = RECHTS-BIS,;, 


DO 


ZEILE: = ZEILE + 1; 
(RA ANZAHL DER FEHLENDEN LEERZEICHEN *) 


Listing 3. Kopleren und Formatieren eines Textflles 











sind nach dem Doppelpunkt zwei For- 
matierungsangaben möglich: 


WRITE(F,reeller Ausdruck: n : m) 
druckt die reale Zahl nicht in Gileit- 
kommadarstellung (zum Beispiel 
1.00000E + 2), sondern in Festkomma- 
darstellung. Dabei gibt n wieder die 
Mindestgröße des Feldes an, in das die 
Zahl ausgegeben wird, wohingegen m 
die Anzahl der angezeigten Nachkom- 
mastellen wiedergibt: 

WRITELN(1.2345 : 10: 5) 

ergibt die Ausgabe 

___1.23450 

(2) WRITELN(F) 

Wichtig ist die Tatsache, daß sich die 
Zeichen auf einem Textfile in Zeilen glie- 
dern. Mit dem Prozeduraufruf WRI- 
TELN(F) wird auf dem Textfile F ein Zei- 
lenende erzeugt. Technisch bewirkt 
dies die Ausgabe von ein oder zwei 
Steuerzeichen (CR, eventuell LF, car- 
riage return und line feed, also Wagen- 
rücklauf und Zeilenvorschub) auf das 
File F. 

Eine Folge von Ausgaben, wie 
WRITE(F,A); WRITE(F,B); WRITE(F, 
0); 
kann immer zusammengefaßt werden 
zu 
WRITE(F,A,B,C) 

Außerdem entspricht der Aufruf 
WRITELN(F,A,B,...) 

der Befehlsfolge 
WRITE(F,A,B,...);WRITELN(F) 

Somit erzeugt also die Ausgabe mit 
WRITELN immer einen Zeilenwechsel 
am Ende der Ausgabe. Natürlich muß 
vor allen Schreiboperationen dasFileF 
mit REWRITE(F) zum Schreiben eröff- 
net worden sein. Dabei werden wieder 
alle Zeichen, die eventuell zuvor in F 
existierten, gelöscht. Beabsichtigt man 
eine Ausgabe auf dem Standard-Aus- 
gabegerät (dem Bildschirm), so bietet 
sich als Filevariable die vordeklarierte 
Variable OUTPUT an. Diese kann man 
sich mit der Deklaration 
VAR OUTPUT: TEXT; 
vereinbart denken. In Wirklichkeit wird 
man jedoch in diesem Fall den Filepara- 
meter bei WRITE nicht angeben, und 
erhält somit die vereinfachte Syntax, 
die Sie bereits am Anfang des Artikels 
kennengelernt hatten: 

WRITE(OUTPUT, 'Hallo Bildschirm!) 
läßt sich also ersetzen durch 

WRITE( 'Hallo Bildschirm'). 

(3) READ(F, Variable) 

Vom Textfile F werden Zeichenfolgen 
eingelesen und als Werte des Typs der 
Variablen interpretiert. Am besten kann 
man diese Umwandlung von Zeichen- 
folgen auf dem File in Werte, zum Bei- 
spiel des Typs INTEGER, an Beispielen 
verdeutlichen: 

VAR I: INTEGER; 
R: REAL; 
C: CHAR; 
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Befindet sich auf dem File F folgende 
Zeichenfolge: 

1234 34.55X 

so bewirkt der Prozeduraufruf READ 
(FIÄAR,C) folgende Zuweisungen: 
I:=1234; R:=34.55; C:='X' 

Ist der Parameter bei READ eine 
ganze oder reelle Zahl, so werden zu- 
nächst Leerzeichen und Zeilenwechsel 
ignoriert. Anschließend wird eine Zif- 
fernfolge eingelesen und der entspre- 
chende Wert der Variablen zugewie- 
sen. Eine nachfolgende READ- 
Operation verarbeitet das Zeichen, das 
direkt hinter der gelesenen Zahl 
beginnt. Daher besitzt die Variable C im 
obigen Beispiel den Wert »X«. 

(4) READLN(F) 

Vom File F werden solange Zeichen 
eingelesen, bis ein Zeilenende erkannt 
wurde. Der nächste Aufruf der Prozedur 
READ mit dem File F liest das erste Zei- 
chen der folgenden Zeile. Es gibt eben- 
falls ein Standardfile zur Eingabe, das 
folgendermaßen vordeklariert ist: 

VAR INPUT: TEXT; 

Wiederum kann man Eingaben von 
der Tastatur als Standard-Eingabe auch 
ohne Angabe einer Filevariablen errei- 
chen. READ(INPUT,I,R,C) entspricht 
READI(I,R,C) und liest drei Werte von 
der Tastatur. 

(5) EOLN(F) 

Die Standardfunktion EOLN, ange- 
wandt auf ein Textfile F, liefert einen 
booleschen Wert. Er ist genau dann 
TRUE, falls bei der letzten Eingabe vom 
File F das Zeilenende erreicht wurde. 
Bitte beachten Sie, daß Sie beim Ein- 
lesen nie die oben genannten Steuer- 
zeichen (Zeilenwechsel oder Wagen- 
rücklauf) erhalten, da diese vom Pascal- 
Laufzeitsystem automatisch in Leerzei- 
chen (blanks) umgewandelt werden. 

Nach diesen zugegebenermaßen 
recht detaillierten Ausführungen über 
Textfiles in Pascal sollen Sie zur Beloh- 
nung auch ein wirklich sinnvolles Pro- 
gramm kennenlernen. Es kopiert einen 
Text von einem Textfile zu einem ande- 
ren und formatiert dabei Zeilen rechts- 
bündig (Listing 3). 

Die Prozedure FORMAT wird mit drei 
Parametern aufgerufen. EINGABE liest 
den zu formatierenden Text und 
schreibt ihn auf AUSGABE. RECHTS 
enthält die Spalte, in der jede Zeile 
enden soll. Für einen Testlauf können 
Sie RECHTS beispielsweise auf 40 Zei- 
chen setzen. 

Nachdem EINGABE und AUSGABE 
korrekt zum Lesen und Schreiben eröff- 
net wurden, wird jeweils eine Zeile mit 
READLINE eingelesen, entschieden, 
ob die Zeile formatiert werden muß und 
schließlich die formatierte Zeile ausge- 
geben. Beim Einlesen (READLINE) wird 
der Text in einen Zeilenpuffer LINE 
geschrieben. Alle Indizes in diesem 
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IF (N<c=1) OR (S<c=0) THEN (* 1:1 KOPIEREN *% 


WHILE Ic=BIS DO 
BEGIN WRITE( AUSGABE, 
ELSE 


LINELTD)D; 


I:= I»+1 END 


BEGIN (* BERECHE ANZAHL DER LEERZEICHEN UND VERTEILUNG: *) 


IF ODDUL ZEILE) THEN 
BEGIN 
P:= S DIV (N-1), 
Q: = Pr1; 


TER PEIEN-T + MOSES 


END 
ELSE 
BEGIN 
Q: = S DIV (N-1); 
P:= Q+»1; 


TamIS + 1-9 * (N-1) 


END; 
FOR K:= 1 TO N-1 DO 
BEGIN 
COPYWORD, 


(* VON LINKS EINFÜGEN *) 


(* VON RECHTS EINFÜGEN *) 


(* WORTE KOPIEREN UND ERWEITERN *) 


IF K>=T THEN INSERTSPACES(OQ) 
ELSE INSERTSPACES(P) 


END; 
COPYRORD; 
END; (* IF *%) 
RRITELN( AUSGABE); 
END; (* WHILE NOT EOF... *) 
END; (* FORMAT *) 


BEGIN 
FORMAT( INPUT, OUTPUT, 40); 
END. 


(* LETZTES WORT *) 


Listing 3. Kopieren und Formatieren eines Textflles (Schluß) 





ARRAY von Zeichen sind als Aus- 
schnittstypen 

TYPE LINEINDEX = 1..136 

deklariert. Außerdem bestimmt READ- 
LINE die Anzahl der Worte in der Zeile 
und die letzte Spalte, in der ein Buch- 
stabe stand. Diese Werte kommen als 
Variablenparameter zurück. Anschlie- 
Bend wird die Anzahl der Leerzeichen 
bestimmt, die in die Zeile einzufügen 
sind, damit das letzte Zeichen in Spalte 
RECHTS erscheint. Enthält die Zeile 
nur ein Wort oder fehlen keine Leerzei- 
chen, so kann der Zeilenpuffer LINE 
ohne Anderung ausgegeben werden. 

Ansonsten beginnt die eigentliche 
Formatierung. Dabei sollten Sie vermei- 
den, daß sich die Worte alle am rechten 
und linken Rand sammeln. Daher wer- 
den in Zeilen mit ungerader Zeilennum- 
mer (»ODDI(ZEILE)=TRUE«) Leerzei- 
chen von links eingefügt, sonst jedoch 
von rechts. 

Ein Beispiel: Steht in einer Zeile 11 
Mal das Zeichen A mit einem Zwischen- 
raum und ist RECHTS=40, so müssen 
18 Leerzeichen auf 10 Wortzwischen- 
räume verteilt werden. Ein Teil der Zwi- 
schenräume wird also um ein Leerzei- 
chen, der Rest um zwei Leerzeichen 
erweitert. Im Programm übernehmen 
diese Verteilung die Variablen P Q und 
T. Die ersten Worte werden mit P Leer- 
stellen am Ende erweitert, während ab 
dem T-ten Wort Q Leerstellen angefügt 
werden. In der FOR-Schleife enthält 
also K die Nummer des gedruckten 
Wortes. 

Nach diesen Ausführungen kennen 
Sie die Logik des Programmes, so daß 
Sie noch ein paar technische Details 





zum Thema Textfiles aufnehmen kön- 
nen: Zunächst erkennen Sie am Aufruf 
»FORMAT(INPUTOUTPUT,40)«e den 
Nutzen der vordefinierten Textfiles 
INPUT und OUTPUT, die jaauch im Pro- 
grammkopf angegeben werden. Mit 
ihnen kann man die Tastatur und den 
Bildschirm wie ein normales File 
ansprechen. Bei der Prozedur READ- 
LINE wird die Funktion EOLN(Eingabe) 
zum Erkennen des Zeilenendes be- 
nutzt. Damit nach der Bearbeitung der 
ersten Zeile beim nächsten Aufruf die 
folgende Zeile weiterbearbeitet wird, 
muß am Ende der Aufruf READLNI(EIN- 
GABE) stehen. Die Prozedur INSERT- 
SPACES verwendet die Angabe eines 
Formatierungsparameters nach dem 
Doppelpunkt, um eine definierte Anzahl 
von Leerzeichen zu drucken: 
WRITE(AUSGABE, ' ': N) 

druckt ein Leerzeichen rechtsbündig in 
einem Feld der Größe N. Somit werden 
insgesamt N Leerzeichen ausgegeben. 
Schließlich erfolgt nach der Ausgabe 
jeder Zeile der Aufruf WRITELN(AUS- 
GABE). Damit wird auf dem File AUS- 
GABE ein Zeilenwechsel erzeugt, um 
die Zeilenstruktur des Files EINGABE 
zu erhalten. 

Damit ist die Diskussion des Daten- 
typs File und speziell der Textfiles been- 
det. Als Übung können Sie versuchen, 
das Programm in Listing 3 so zu verän- 
dern, daß es jede Zeile zentriert druckt. 
Sie können also die Prozedur READ- 
LINE wieder verwenden, jedoch dafür 
sorgen, daß die fehlenden Leerstellen 
zur Hälfte vor dem ersten Wort gedruckt 
werden. 

(Florian Matthes/ev) 























Von Zeigern, 


Listen und Graphen 
(Pascal, Teil 4) 


Der letzte Beitrag unserer Einfüh- 
rung in die Programmiersprache 
Pascal beschäftigt sich mit ei- 
nem nicht ganz einfachen, aber 
sehr interessanten Thema: den 
dynamischen Datenstrukturen. 


ie Beschreibung der dynami- 
schen Datenstrukturen steht 
grundsätzlich am Ende jeder 
Einführung in Pascal. Dies liegt einer- 
seits daran, daß es sich dabei um ein 
besonders leistungsfähiges Sprachele- 
ment handelt, andererseits möchte man 
den Anfänger erst zum Schluß mit 
einem völlig neuen Verfahren zur 
Behandlung von Variablen konfrontie- 
ren. Haben Sie also in den vorherge- 
henden Artikeln Ihre ersten Schritte in 
Pascal gemeistert, dürfen Sie an dieser 
Stelle nicht frustriert zur Überzeugung 
gelangen, daß Pascal viel zu kompliziert 
und unverständlich ist. Vielmehr sollten 
Sie, nachdem Sie das bisher Gelernte in 
eigenen Programmen verwendet 
haben, mit diesen Erfahrungen den 
letzten Teil zur Fortbildung nutzen. 
Sicherlich gibt es auch einige Leser, die 
bisher zwar in Pascal programmiert 
haben, dabei jedoch einen weiten 
Bogen um Pointervariablen geschlagen 
haben. Für diese beginnt jetzt wohl der 
eigentlich interessante Teil der Artikel- 
serie. 

Alle bisher behandelten Datentypen 
und Variablen waren statisch. Am 
Beginn jedes Blockes wurden die loka- 
len Variablen angelegt und waren über 
ihren Namen veränderlich, bis der Block 
wieder verlassen und das Ende der Gül- 
tigkeit der Variablen erreicht wurde. 
Diese Variablenverwaltung hat zur 
Folge, daß bereits zur Übersetzungs- 
zeit der Compiler eine Speicherplatz- 
verwaltung durchführen kann. Außer- 
dem entspricht jedem Variablennamen 
ein (eventuell zusammengesetzter) 
Wert, jedoch gibt es auch gravierende 
Nachteile. Jedes Array besitzt eine 
feste Größe (es gibt keinen variablen 
DIM-Befehl wie zum Beispiel in Basic), 
so daß man oft entweder ein zu kleines 
Array definiert oder unnötig Speicher- 
platz verschwendet. 








Man möchte also zur Laufzeit des 
Programms dynamisch entscheiden, 
ob Speicherplatz für eine Variable anzu- 
legen ist oder ob eine bestehende 
Variable gelöscht werden soll. Außer- 
dem möchte man auf diese dynamisch 
erzeugten Variablen gezielt zugreifen. 
Andererseits will man nicht auf die 
Typüberprüfungen des Compilers ver- 
zichten. Die Lösung des Dilemmas 
besteht darin, Variablen nicht mehr 
durch Namen, sondern durch Zeiger zu 
identifizieren. 

Betrachten wir ein konkretes Bei- 
spiel. Es soll eine Kundenliste gebildet 
werden. Von jedem Kunden wird Name 
und Kundennummer gespeichert. Da 
die Anzahl der Kunden (in der Zukunft) 
unbekannt ist, scheidet ein Array von 
Kundenrecords als Datenstruktur aus. 
Statt die Daten auf einem langsamen 
externen Datenspeicher als File abzule- 
gen, wird eine Liste mit Zeigern gebildet 
(Bild 1). Bildlich gesprochen entspricht 
jeder Record einem Kasten, der alle 
Daten eines Kunden enthält. Um nun 
einen Record im Programm anzuspre- 
chen, benutzt man keinen Variablenna- 
men, sondern einen Zeiger auf diesen 
Kasten. 

TYPE KUNDENZEIGER = ! KUNDE; 
KUNDE = RECORD 
NAME: ARRAY[1..10] 


OF CHAR; 
KNUMMER: INTEGER; 
NAECHSTER: KUNDEN- 
ZEIGER; 

END; 


VAR KUNDE1, KUNDENEU, LETZTER: 

KUNDENZEIGER; 

In Bild 1 zeigt also der Zeiger 
KUNDE1 auf den ersten Kundenre- 
cord. Von dort führt ein weiterer Zeiger 
zum nächsten Kundenrecord und so 
weiter. Jeder Zeiger (pointer) ist an 
einen Typ gebunden. So kann also eine 
Variable vom Typ KUNDENZEIGER nur 
auf einen Record vom Typ KUNDE wei- 
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Bild 1. Eine Liste mit Zeigern 





sen. Die Liste in Bild 1 ist also über 
einen Zeiger (KUNDEI) zugänglich. 
Indem man den Zeigern von Record zu 
Record folgt, kann man nacheinander 
jeden Record in der Liste adressieren. 

Die obige Variablendeklaration defi- 
nierte jeweils nur Speicherplatz für Zei- 
ger auf Kundenrecords, jedoch keine 
Records selbst. Dies geschieht erst 
während der Programmausführung mit 
der Standardprozedur NEW: 
NEW(KUNDE1) 

Damit reserviert man irgendwo im 
Hauptspeicher des Rechners Spei- 
cherplatz für eine Variable des Typs, auf 
den die Pointervariable KUNDE zeigt. 
Um diesen neu erzeugten Kundenre- 
cord zu adressieren, wird gleichzeitig 
dem Zeiger KUNDEI die Adresse die- 
ses Records zugewiesen (Bild 2a). 
Jetzt kann man der so erzeugten Varia- 
blen Werte übergeben: 

KUNDE1 I .NAME:= "MAIER : 
KUNDE1 ! .KNUMMER:= 100; 

Während KUNDEI eine Zeigervaria- 
ble (vom Typ KUNDENZEIGER) ist, 
bezeichnet KUNDE! eine Variable des 
Typs KUNDE. Indem man also den Pfeil 
hinter eine Zeigervariable stellt, erhält 
man die dynamische Variable, auf die 
die Pointervariable zeigt. Man bezeich- 
net deshalb den Pfeil auch als 
»Dereferenzier-Operator«. 

Da KUNDE1! eine (dynamische) 
Recordvariable ist, folgen nach einem 
Punkt wie üblich die Feldnamen des 
Records. Damit erhält man den Zustand 
aus Bild 2b. Ulm einen weiteren Kunden 
in die Liste aufzunehmen, ist zunächst 
wieder Speicherplatz zu reservieren. 
NEW(KUNDENEU) 

Wie oben kann man jetzt diesen 
Record mit Werten füllen (2c): 
KUNDENEUl .NAME:= 'MÜLLER '; 
KUNDENEU! .KNUMMER:= 200; 

Schließlich soll KUNDENEU als 
Nachfolger von KUNDE eingetragen 
werden. Hierzu wird im Feld NAECH- 


MUELLER SCHULZE 
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STER des Records, der durch KUNDE 1 
referiert wird, der Zeiger KUNDENEU 
eingetragen (Bild 2d). 
KUNDE1! .NAECHSTER:= KUNDENEU 

Um den letzten Record hinter KUN- 
DENEU einzufügen, kann man folgende 
Anweisungsfolge verwenden: 


NEW(LETZTER); 

LETZTER! .NAME:='SCHULZE '; 
LETZTER! .KNUMMER:=300; 
KUNDENEUI .NAECHSTER:= LETZTER 


Damit ergibt sich eine Liste wie in Bild 
2e. Wie erkennt man nun aber das Ende 
der Liste? Man muß wissen, ob das Feld 
NAECHSTER einen gültigen Zeiger 
enthält. Um anzuzeigen, daß ein Zeiger 
auf keine dynamische Variable weist, 
verwendet man den Wert NIL. Diese 
Konstante darf jeder Zeigervariablen 
zugewiesen werden. Mit 
LETZTER] .NAECHSTER: =NIL 
gibtman alsoan, daßBnach LETZTER! in 
der Liste kein Record mehr folgt. 

Bisher programmierten wir alle Einfü- 
gungen in die Liste »zu Fuß«. Ein kom- 
plettes Programm zur Verwaltung einer 
Kundenliste zeigt Listing 1. Es Sspei- 
chert die Kunden in alphabetischer Rei- 
henfolge. Zusätzlich existieren am 
Anfang und Ende der Liste je ein leerer 
Record. Damit ergibt sich eine Listen- 
struktur wie in Bild 3. Die Zeiger KOPF 
und ENDE weisen immer auf die beiden 
leeren Records. Im folgenden werden 
alle Funktionen des Programms anhand 
von Abbildungen erklärt. 

Am einfachsten ist die Ausgabe der 
Tabelle (Bild 4a), siehe Prozedur 
TABELLE in Listing 1: Man durchläuft 
mit dem Zeiger Z die gesamte Liste und 
zeigt den jeweiligen Kundenrecord an. 
Mit 
Z:= KOPFT .NAECHSTER 
wird zunächst der leere (schraffierte) 
Record am Listenanfang übersprun- 
gen. Solange der Zeiger Z nicht mit dem 
Zeiger ENDE übereinstimmt, wird der 
Record Z1 (nicht der Zeiger Z!) ange- 
zeigt. >Z:= Zi .NAECHSTER« führt 
schließlich von jedem Record zu sei- 
nem Nachfolger in der Liste. 

Die Prozedur EINGABE _ liest 
zunächst von der Tastatur einen Namen 
ein. Dann wird durch den Aufruf der Pro- 
zedur VORHANDEN geprüft, ob dieser 
Name bereits in der Liste steht. Ist dies 
der Fall, so endet die Eingabe. Anson- 
sten wird dann ein neuer Record NEU 
geschaffen und mit Namen und Kun- 
dennummer gefüllt (Bild 4b). Da die 
Liste alphabetisch sortiert bleiben soll, 
muß NEU direkt hinter dem alphabeti- 
schen Vorgänger eingehängt werden. 
Daher liefert die Prozedur VORHAN- 
DEN einen Zeiger VOR, der in jedem 
Fallauf den Vorgänger in der Liste zeigt. 
Die Einfügung selbst geschieht dann in 
zwei Schritten. Zunächst wird der Zei- 
ger NAECHSTER im neuen Record auf 
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| KUNDE 1 


(d) 








{ KUNDE 1 } 


(e) 


PROGRAM KUNDENLISTE (INPUT, OUTPUT); 
BEISPIEL FÜR DIE VERWALTUNG EINER LISTE MIT DYNAMISCHEN VARIABLEN 
DIE DATEN VOM TYP KUNDE WERDEN STÄNDIG SORTIERT IN EINER EINFACH 
VERKETTETEN LISTE GESPEICHERT. JEDER RECORD BESITZT DAZU EINEN 
ZEIGER AUF DEN ALPHABETISCHEN NACHFOLGER. UM DAS EINFÜGEN UND 
LÖSCHEN EINFACH ZU GESTALTEN, BESITZT DIE LISTE JE EINEN LEEREN 
RECORD AM ANFANG UND ENDE. 

(* LÄNGE EINES NAMENS IN ZEICHEN 


CONST LEN - 10; 


TYPE STRING = ARRAY (1..LENI OP CHAR; 
KUNDENZEIGER = ° KUNDE; 
KUNDE = RECORD 
NAME : STRING; 
KNUMMER : INTEGER; 
NAECHSTER: KUNDENZEIGER; 
END; 
KOPF: KUNDENZEIGER; 
ENDE: KUNDENZEIGER; 
CH : CHAR; 


(* ZEIGER AUF DEN ERSTEN RECORD IN DER LISTE 
(%* ZEIGER AUP DEN LET2TEN RECORD 
(*2 BENUTZEREINGABE 


PROCEDURE READSTRING (VAR S: STRING); 
(* STRING MIT LEN ZEICHEN VON DER TASTATUR LESEN *) 
VAR £: INTEGER,; 
C: CHAR; 
BEGIN 
REPEAT READ(C) UNTIL C<>' 
I: =1; 


“s c% VORLAUFENDE LEERZEICHEN IGNORIEREN 


REPEAT 
StIl:= C, I:> I+1; 
READ(C) 

UNTIL (I>LEN) OR EOLN; 


(* LEN ZEICHEN ODER BIS ZUM ZEILENENDE 


WHILE I<LEN DO 
BEGIN 
SIIl:= 
END; 
READLN 
END; (* READSTRING *) 
FUNCTION VORHANDEN (S: STRING, VAR Z: KUNDENZEIGER): BOOLEAN,; 
(* SUCHT DEN NAMEN S IN DER LISTE. ERGEBNIS = TRUE, FALLS S GEFUNDEN 
(* WURDE. Z ZEIGT BEI DER RÜCKKEHR IMMER AUF DIE POSITION DES ALPA- 
(* BETISCHEN VORGÄNGERS. 


(* S MIT LEERZEICHEN AUF DIE VOLLE 
(* LÄNGE ERWEITERN 
%...Ie®w 141; 


(A 21 STEHT IMMER EINEN RECORD WEITER ALS 
(* DER ZEIGER Z 


VAR 21: KUNDENZEIGER; 
BEGIN 

2: = KOPF, (* Z1 ZEIGT AUF ERSTEN GÜLTIGEN 
(* RECORD IN DER LISTE 
(" 


MARKE IM LEZTEN RECORD DER LISTE*) 


Zi:= KOPF”. NAECHSTER; 


ENDE“. NAME: =S; 
WKHILE 21 
BEGIN 
zZ. = 71, 
END; 
(4 GEPUNDEN, FALLS NAMEN GLEICH UND NICHT MARKE ERREICHT 
VORHANDEN: = (21°. NAME=S) AND (ZI<>ENDE); 
END; (* VORHANDEN *) 


WANDERE MIT 21 DURCH DIE LISTE, *) 


".NAME<S DO ( 
(* BIS POSITION VON S ERREICHT a) 


21:= Z1°. NAECHSTER 


PROCEDURE DRUCKE (Z: KUNDENZEIGER), 
Listing 1. Kundenverwaltung mit Listenstruktur 






































BEGIN 
WITH 2° DO 
WRITELNG' NAME: ', 
END; (A DRUCKE *) 


NAME: LEN»2, NUMMER: ', KNUMMER :5) 


PROCEDURE EINGABE; 
(* EINFÜGEN EINES NEUEN KUNDENRECORDS AN DER KORREKTEN POSITION IN 
(* DER KUNDENLISTE ZWISCHEN VON UND BIS 
VAR N STRING; (* NEUER NAME 
NEU: KUNDENZEIGER. (* ZEIGER AUF DEN NEUEN RECORD 
VOR: KUNDENZEIGER;, (* ZEIGER AUF DEN VORGÄNGER IN DER LISTE 


BEGIN 
WRITEU' NAME: ' ); 
IF VORHANDEN (N, VOR) THEN 


READSTRINGIN),; 
(%* VOR WIRD HIER GESETZT! 


WRITELNIN, IST BEREITS KUNDE! ') 
ELSE 
BEGIN 
NEW ( NEU); (4 NEUEN RECORD BESORGEN 


WRITE (' KUNDENNUMMER: ' ); 
READLN ( NEU”. KNUMMER); 
NEU. NAME: = N; 


(* UND MIT WERTEN BELEGEN: 


(* NEU HINTER VOR EINFÜGEN: *) 
NEU”. NAECHSTER: = VOR’. NAECHSTER; 
VOR’. NAECHSTER: = NEU 
END, 
END; (* EINGABE *) 


PROCEDURE AUSGABE; 
(* AUSGABE EINES KUNDENRECORDS 
VAR N STRING; 
VOR: KUNDENZEIGER: (" ZEIGER AUF ALPHABETISCHEN VORGÄNGER 
BEGIN 
WRITE C' NAME: '); 
READSTRINGIN); 
IF VORHANDEN (N, VOR) THEN 
DRUCKE ( VOR . NAECHSTER) 
ELSE 
WHRITELN (N, 
END; (% AUSGABE *) 


(* VOR WIRD AUF DEN VORGÄNGER GESETZT! 


NICHT ALS KUNDE GESPEICHERT! '); 


PROCEDURE LOESCHEN,;, 
(4 LOESCHEN EINES KUNDENRECORDS IN DER LISTE 
VAR N STRING; 
VOR: KUNDENZEIGER; (* WIEDERUM ZEIGER AUF DEN VORGÄNGER IN 


(* DER LISTE DER KUNDEN 


BEGIN 
WRITE(' NAME: '),; 
IF VORHANDEN(N, VOR THEN 


READSTRING(N), 
(“* VOR WIRD AUF DEN VORGÄNGER GESETZT 


BEGIN 
WRITELN (' GELÖSCHT WURDE: '); 
DRUCKE ( VOR’. NAECHSTER); (* ZUR SICHERHEIT ANZEIGEN 


(* JETZT DEN NACHFOLGER VON VOR” AUS DER LISTE ENTFERNEN 
VOR”. NAECHSTER: = VOR’. NAECHSTER”. NAECHSTER; 
END 
ELSE 
WRITELN (N, NICHT ALS KUNDE GESPEICHERT! '); 
END, (* LOESCHEN *%) 


PROCEDURE TABELLE; 
(* DRUCKE EINE ALPHABETISCHE AUFLISTUNG ALLER KUNDEN A) 


VAR 2: KUNDENZEIGER; 
BEGIN 
2:= KOPF”. NAECHSTER; (“2 2 AUF DEN ERSTEN BELEGTEN RECORD 
WHILE Z<C>ENDE DO (" SOLANGE NICHT DER LETZTE (LEERE) 
BEGIN (* RECORD ERREICHT WIRD: 
DRUCKEL 2); (* ANZEIGE 2° 
2:= 2°. NAECHSTER,; (* ZUM NÄCHSTEN KUNDEN 
END; 


END; (A TABELLE *) 


BEGIN (* HAUPTPROGRAMM *) 


NEW KOPF), NEW(IENDE), (* ERSTEN UND LETZTEN RECORD BILDEN 
KOPF . NAECHSTER: = ENDE, (* ENDE DIREKT NACH DEM KOPF, ALSO IST 
(% DIE EISTE LEER 

REPEAT 

WRITELNU'E INGABE L OESCHEN'), 

WRITELN(' A USGABE T ABELLE'), 

WRITELN«' X BEENDEN'); 

READLN(CH), 


IF CH IN EREI, Ar, TR SDHEN 
CASE CH OF 


E': EINGABE; 
TA: AUSGABE, 
L': LOESCHEN, 
*T': TABELLE, 
“X': (% NICHTS *) 
END (* CASE *) 
ELSE 


WRITELNICH „' 
UNTIL CH=e'X' 
END; 


IST NICHT MÖGLICH! '), 


A.) 
A) 
2) 
=] 
“) 


A) 


“) 


u) 


a) 


“) 


“) 


“) 


4“) 
n) 
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Listing 1. Kundenwerwaltung mit Listenstruktur (Schluß). Das Zeichen »" « entspricht 
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den Nachfolger des Records VORI 
gesetzt. Dann kann der Zeiger NAECH- 
STER in VOR! auf den Wert des Zeigers 
NEU gesetzt werden. Damit ergibt sich 
eine Liste wie Bild 4c. Dort sind die 
geänderten Zeiger fett gezeichnet. 

Um in der Prozedur AUSGABE zu 
einem Namen den zugehörigen Kun- 
denrecord in der Liste zu finden, dient 
ebenfalls die Funktion VORHANDEN. 
Da sie jedoch immer einen Zeiger auf 
den Vorgänger liefert, muß der Record 
VOR1T.NAECHSTER verwendet 
werden. 

Ebenso einfach ist das Löschen 
eines Kunden. In der Prozedur LOE- 
SCHEN wird wieder mit VORHANDEN 
ein Zeiger auf den Vorgänger in der 
Liste gesetzt. Mit 
VOR! .NAECHSTER: =VORI .NAECHSTER!. 
NAECHSTER 
wird im Record VOR! der Zeiger auf 
den übernächsten Nachfolger gerichtet 
(fette Linie in Bild Ad). 

Jetzt ist es an der Zeit, uns mit der 
Funktion VORHANDEN näher zu befas- 
sen. Sie durchsucht die alphabetisch 
sortierte Liste nach dem Namen S. Wird 
ein Record mit NAME=S gefunden, so 
ist VORHANDEN gleich TRUE. Der Zei- 
ger Z weist dann auf den Vorgänger die- 
ses Records. Ist jedoch VORHANDEN 
gleich FALSE, so existiert kein Kunde 
mit dem Namen S. Jetzt zeigt Z auf den 
Record, hinter dem ein neuer Record 
eingefügt werden müßte, um die alpha- 
betische Ordnung zu erhalten. In Bild 
4e ist gezeigt, daß zwei Zeiger Zund Z1 
verwendet werden. Man durchläuft wie 
bei der Prozedur TABELLE die Liste bis 
gilt: 


Zil.NAME >=S 


Dabei hinkt der Zeiger Z immer einen 
Record hinter dem Zeiger Z1 her. Ist die 
obige Bedingung eingetreten, so zeigt 
Z auf den alphabetischen Vorgänger. 
Um zu verhindern, über das Listenende 
hinauszulaufen, wird am Anfang der 
letzte (unbenutzte) Record mit dem 
gesuchten Namen gefüllt: 

ENDE! .NAME:=S; (z.B. S='SCHULZE') 

Damit bricht die WHILE-Schleife 
sicher für ZI=ENDE ab. Einen solchen 
Eintrag zur Vereinfachung des 
Abbruchkriteriums bezeichnet man als 
Marke. Das boolesche Ergebnis der 
Funktion bestimmt also abschließend 
die folgende Zuweisung: 

VORHANDEN: = (Z11.NAME=S) AND 
(Z1<> ENDE) 

Am Programmanfang wird mit 

NEW(KOPF) ; NEW(ENDE); 

KOPFIT .NAECHSTER:= ENDE 

eine Liste mit zwei wunbenutzten 
Records erzeugt. Durch diese Initiali- 
sierung findet Einfügen und Löschen 
immer zwischen zwei Records statt. 
Wären diese Hilfsrecords nicht vorhan- 
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den, so müßte man zum Beispiel beim 
Löschen immer die Sonderfälle 
Löschen am Listenanfang oder 
Löschen des einzigen Elements in der 
Liste prüfen, da in diesen Fällen auch 
die Zeiger KOPF und ENDE verändert 
werden müßten. 

Jetzt sollten Sie sich zunächst etwas 
Zeit nehmen, alle diese Informationen 
zu verdauen und Sich genauer mit dem 
Listing 1 auseinandersetzen. Dann füh- 
ren Sie einen kleinen Verständnistest 
durch: 

1. Was ist der Unterschied zwischen 
den folgenden Zuweisungen? 

KOPF := ENDE und 
KOPFI := ENDEI? 

2. Ändern Sie das Programm so, daß 
die Namen in umgekehrter alphabeti- 
scher Reihenfolge (SCHULZE, MUEL- 
LER, MAIER) in der Liste gespeichert 
werden! 

Zur Beantwortung der ersten Frage 
blättern Sie bei Bedarf zum Anfang der 
Ausführungen über Zweigvariablen 
zurück. Die zweite Aufgabe besteht 
»nur« in der Änderung der Funktion 
VORHANDEN. 

Es gibt sehr viele verschiedene 
Varianten mit dem Konzept der Spei- 
cherung von Daten in Listen. Sie unter- 
scheiden sich in der Methode, wie die 
Records durch Zeiger verkettet sind. Im 
Beispiel der Kundenliste kann man 
ohne Probleme von jedem Kunden zu 
seinem alphabetischen Nachfolger 
gelangen. Jedoch erreicht man den 
Vorgänger im Alphabet nur, indem man 
die Liste vom Kopf her durchläuft. Eine 
naheliegende Lösung besteht darin, 
jeden Record um einen Zeiger auf den 
Vorgänger zu erweitern: 


TYPE KUNDENZEIGER = KUNDE; 
KUNDE = RECORD 
NAME : ARRAY 
[1..10] OF CHAR; 
KNUMMER INTEGER; 
VORIGER KUNDENZEIGER; 
NAECHSTER: KUNDENZEIGER; 
END; 


Diese Verkettung erlaubt zwar ein 
Durchlaufen der Liste vorwärts wie 
rückwärts, jedoch werden die Operatio- 
nen zum Einfügen und Löschen 
wesentlich komplexer, da sie zwei Ver- 
kettungen aktualisieren müssen. Eine 
solche doppelt verkettete Liste zeigt 
symbolisch das Bild 5. 

Es gibt noch viele andere Methoden, 
Datenstrukturen mit Zeigern zu bilden 
(zum Beispiel Bäume), in denen man 
sehr effizient Werte sortiert einfügen, 
suchen und löschen kann. Da dieses 
Themengebiet sehr umfangreich ist 
und wirklich gute Literatur über dieses 
Thema existiert [1], sollen die letzten 
Beispiele mit Zeigern andere Anwen- 
dungen zeigen. 

Zunächst wird ein Verfahren vorge- 
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stellt, das Werte so speichert, daß man 
ohne Suchen in einem Schritt einen vor- 
gegebenen Wert wiederfindet. Die 
angenommene Aufgabe besteht darin, 
für eine Anzahl von Orten die Postleit- 
zahl abzulegen. Man soll also einerseits 
neue Orte mit ihrer Postleitzahl einge- 
ben können und andererseits zu einem 
vorgegebenen Namen die gespei- 
cherte Postleitzahl (falls gespeichert) 
erhalten. 

Bei der Speicherung mit dynami- 
schen Variablen im Programm KUN- 
DENLISTE trat das Problem auf, daß 
man sich erst mit einer (linearen) Suche 
durch die Liste bewegen muß, um einen 
Kundenrecord zu finden. Dabei muß 
man bei n gespeicherten Werten im 
Durchschnitt n/2 Vergleiche aufwen- 
den. Optimal wäre eine Speicherungs- 
methode, bei der man direkt aus dem 
Suchschlüssel einen Verweis auf die 
gespeicherten Informationen erhält. 
Diese Anforderung erfüllt das soge- 
nannte »Hashing«e: Man speichert alle 
Daten in einer Hash-Tabelle. Das ist ein 
Array, das mit ganzen Zahlen indiziert 
wird: 

CONST HASHSIZE = 97; 

TYPE INFO = INTEGER; (* POSTLEIT- 
ZAHL *) 

VAR HASHTAB = ARRAY[O..HASH- 
SIZE| ORTENEO; 

Nun sollen im vorliegenden Beispiel 
als Schlüssel zwanzigstellige Städtena- 
men verwendet werden. Man steht also 
vor dem Problem, aus einem String der 
Länge 20 einen eindeutigen Index zwi- 
schen O und 1000 zu erzeugen. Eine 
solche Hash-Funktion - Schlüssel- 
transformations-Funktion - gibt das 
Programm in Listing 2 unter dem 
Namen HASHINDEX wieder. Zunächst 
wird die Summe aller Codezahlen der 
Zeichen berechnet: 
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Anschließend wird dieser Index 
durch die Tabellengröße geteilt. Der 
Divisionsrest ist eine Zahl zwischen OÖ 
und der Tabellengröße und kann somit 
direkt als Index gelten. 
1034 / 97 = 10 REST 73 

Um die Postleitzahl für Frankfurt 
(6000) zu speichern, sind folgende 
Schritte erforderlich: 





INDEX : =HASHINDEX( ' FRANKFURT I: 
HASHTAB[INDEX] := 6000 

Index besitzt also den Wert 73. 
Genauso einfach ist es, die Postleitzahl 
für Frankfurt anzuzeigen: 
INDEX: =HASHINDEX( "FRANKFURT '); 
WRITELN('PLZ:', HASHTAB[INDEX]; 

Das Verfahren besitzt jedoch einen 
gravierenden Nachteil. Die Hashfunk- 
tion, die zu einem Städtenamen einen 
Index zwischen O0 und HASHSIZE 
bestimmt, muß nicht eindeutig sein. Es 
kann also durchaus sein, daß es einen 
weiteren Städtenamen (sagen wir X- 
Stadt) gibt, der bei der obigen Berech- 
nung ebenfalls den Index 73 ergibt. 
Dann kommt es in der Hashtabelle zu 
einer Kollision (»hash clashe«). In diesem 
Fall ist es mit der obigen Datenstruktur 
unmöglich festzustellen, ob in HASH- 
TAB[73) die Postleitzahl von Frankfurt 
oder X-Stadt steht. Im Programm nach 
Listing 2 wird das bisherige Konzept 
deshalb folgendermaßen modifiziert: 
TYPE HASHELEMENT = RECORD 

NAME: STRING; 
PLZ : INTEGER; 
NEXT : IHASHELEMENT 
END; 
VAR HASHTAB: ARRAY[O..HASHSIZE] OF 
!HASHELEMENT; 

Man speichert in der Hashtabelle nur 
einen Zeiger auf einen Record vom Typ 
Hashelement. Dieses Record enthält 
neben der eigentlichen Information 
(PLZ) noch den Name der Stadt. Ein 
Record vom Typ HASHELEMENT ist 
natürlich nur dann erforderlich, falls 
eine Postleitzahl gespeichert werden 
soll. Ansonsten besitzt der Zeiger in 
HASHTAB den Wert NIL. Diese Vorbele- 
gung führt am Programmanfang die Pro- » 
zedur LEERETABELLE durch. Das Feld 
NEXT im Record HASHELEMENT dient 
zur Behandlung von Kollisionen. Alle 
Schlüssel, die unter demselben Index 
stehen, werden in zufälliger Reihen- 
folge zu einer Liste mit dem Zeiger 
NEXT verkettet. Beim Einfügen und 
beim Abfragen muß deshalb eventuell 
diese Liste durchlaufen werden. Bild 6 
zeigt die Datenstruktur der Hashtabelle. 
Jeder Zeiger im Array HASHTAB kann 
also Kopf einer Liste von Einträgen 
sein. Bitte nehmen Sie die Werte in der 
Abbildung nicht zu genau, da aus nahe- 
liegenden Gründen nicht für jeden 
Namen die Hashfunktion berechnet 
wurde. 

Unter folgenden Bedingungen ist 
Hashing die mit Abstand beste Spei- 
cherungsform und jeder anderen Spei- 
chermethode in Geschwindigkeit und 
Programmieraufwand weit überlegen: 

1. Es existiert eine Grenze für die 
Anzahl der Werte, die gespeichert wer- 
den sollen. Die Größe der Hashtabelle 
ist etwa um zehn Prozent größer als 
diese Maximalanzahl festzulegen. 


an 





2. Eine sortierte Ausgabe in der Rei- 
henfolge der Schlüssel ist nicht erfor- 
derlich. Es werden nämlich die Schlüs- 
sel im Idealfall völlig ungeordnet über 
die Hash-Tabelle verteilt, so daß keine 
Möglichkeit existiert, von einem Eintrag 
zu seinem Nachfolger zu gelangen. 


Aus dem bisher Gesagten ist klar, daß 
die Hash-Funktion alle Schlüssel (im 
Beispiel die Städtenamen) möglichst 
gleichmäßig über den gesamten Index- 
bereich verteilen soll. Dabei muß man 
natürlich vermeiden, daß häufig auftre- 
tende ähnliche Schlüssel denselben 


Index erhalten. Soll zum Beispiel die 
Häufigkeit von Variablennamen in Pas- 
cal bestimmt werden, so darf eine 
Hashfunktion keinesfalls alle Namen mit 
nur einem Buchstaben auf denselben 
Index abbilden, da sonst ständig eine 
lange Liste durchsucht werden muß. 
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Bild 3. Kundenliste mit leerem Kopf und Ende 
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Bild 4. Die Kundenliste aus Listing 1 


Blid 5. Eine doppelt verkettete Liste 








Normalerweise ist die Hash-Funktion 


PROGRAM HASHING ( INPUT, OUTPUT); 


jedoch unkritischh, so daß man jede (®* SPEICHERUNG VON POSTLEITZAHLEN MIT HASHING UND ÜBERLAUFLISTEN *) 
Information mit nur einem Zugriff auf ee 2er: eh 

einen Record erhält. Bemerkenswert ist LEN = 20; 

noch die Speicherplatzökonomie des TYPE STRING = ARRAY [1..LENI OF CHAR, 

Verfahrens. Zwar ist ständig ein Array HASHELEMENT = RECORD 

der Größe HASHSIZE vorhanden, die- | RING. 

ses enthält jedoch nur Zeiger (zwei ee: = ES ENDN 

Byte Länge). Nur für tatsächlich vorhan- END; 


dene Schlüssel wird ein Record vom 


VAR HASHTAB : ARRAYLO.. HASHSIZEI OF HASHELEMENT,; 
Typ HASHELEMENT dynamisch er- N : STRING; 
zeugt, der neben der eigentlichen Infor- 2  SRIDENER: 
mation nur noch Speicherplatz für einen PROCEDURE READSTRING (VAR S: STRING); 
Zeiger (NEXT) benötigt. Unter den te“ SERONG MERBEER ZEICHEN VON DER TASTATUR LESEN *) 
oben genannten zwei Bedingungen ist C: CHAR; 
Hashing also wärmstens zu empfehlen, nes READ{C)I UNTIL Cc»>' ', (*% VORLAUFENDE LEERZEICHEN IGNORIEREN *) 
da es die Geschwindigkeit von Array- en 
Zugriffen mit der Effizienz dynamischer 
VanaBlen verbindat BEE. en. (* LEN ZEICHEN ODER BIS ZUM ZEILENENDE *) 
Als abschließendes Beispiel steht an, READ(C) 
eine Aufgabe mit Graphen in Pascal zu er een 
lösen. Ein Graph ist in der Mathematik WHILE I<LEN DO (* S MIT LEERZEICHEN AUF DIE VOLLE a) 
ein abstraktes Gebilde aus Knoten und ee ee a 2 
Kanten, die von Knoten zu Knoten füh- END; — 
ren. Uns interessiert eine spezielle Art ne 
von Graphen, nämlich sloche, deren 
Kanten gerichtet und markiert sind. Das FUNCTION HASHINDEX ( NAME: STRING): INTEGER; s 
klingt schrecklich abstrakt, läßt sich a De ne IN DER HASHTABELLE FÜR D!ESEN NAMEN %) 
jedoch leicht mit einer Abbildung (Bild INDEX: INTEGER; 
7) erklären: Ein Knoten wird durch iso: 
einen Kreis mit der Nummer des Kno- FOR I:= 1 TO LEN DO INDEX: = INDEX + ORD( NAMEL 1175; 
tens dargestellt, während ein Pfeil mit u. ee 
einem Zeichen zwischen zwei Knoten PROCEDURE SPEICHERE (N: STRING; POSTLEITZAHL: INTEGER); 
eine gerichtete, markierte Kante sym- (* EINTRAG NAME MIT POSTLEITZAHL. ZUR SICHERHEIT TEST, OB DOPPELT *) 
bolisiert. Von Knoten 1 führt also eine VAR INDEX : INTEGER; (* INDEX IN HASHTAB a) 
Kante nach 2, die mit X markiert ist. PÄ,NEU : "HASHELEMENT; (* ZEIGER IN ÜEERLAUFLISTE a) 
Nachdem nun die grundlegenden a 
Begriffe bekannt sind, zu eigentlichen ea = HASHINDEXCN); (* INDEX DES NAHENS BERECHNEN %) 
Aufgabe. Durch einen Graphen kann P: = HASHTABEINDEXI: (% ZEIGER AUS DER HASHTABELLE *) 


man einfache »Sprachen« beschreiben: 


' DOPPELT: = PALSE; (* PRÜFE AUF DOPPELTEN EINTRAG, *) 
Bild 8 zeigt einen Graphen, der alle WHILE P<>NIL DO (® FALLS AN DIESER POSITION a) 
Wörter der Form BEGIN (* BEREITS EINTRÄGE EXISTIEREN. A) 
AB DOPPELT: = DOPPELT OR (P’.NAME=N); 

P:= P’. NEXT 
ABAB END; 
ABnErD IP DOPPELT THEN 
ABABABAB.. WRITELNN, ' IST BEREITS GESPEICHERT! ') 
serkennte. Dies geschieht folgender- En. 
maßen: Am Anfang setzt man eine NEWCNEU); (* NEUEN RECORD ERZEUGEN 1) 
»Marke« auf den Eingangsknoten 1. WITH NEU” DO 
' BEGIN 
Außerdem gibt man das Wort vor, von NAME: =N; PLZ: = POSTLEITZAHL;(* WERTE EINTRAGEN 1) 
dem man wissen will, ob es vom Graph NEXT: = HASHTABI INDEX] (= VOR DEN ALTEN WERTEN EINFÜGEN *) 
a END; 
un wird: HASHTABI INDEX]: = NEU (4 NEU STEHT AN 1. POSITION 2) 
END; (4 IP ®) 

Nun liest man Buchstabe für Buch- a EL") 
stabe und bewegt die Marke entspre- FUNCTION POSTLEITZAHL( NAME: STRING): INTEGER; 
chend den Zeichen an den Kanten in LIEFERT DIE POSTLEITZAHL ZU DIESEM NAMEN ODER DIE ZAHL O *) 
durch den Graphen. Mit dem ersten INDEX: INTEGER; 

BEGIN 
Buchstaben des Wortes »ABAB« INDEX: = HASHINDEX( NAME); (* BESTIMME DEN INDEX IN HASHTAB %) 
erreicht man von Knoten 1 den Knoten POSTLEITZAHL: = 0; (* VORLÄUFIG NOCH NICHT GEFUNDEN A) 
2, da die Kante von 1 nach 2 mit dem P:= HASHTABI INDEX) (* DURCHSUCHE DIE ÜBERLAUFLISTE A) 
Zeichen »A« markiert ist. Da der zweite ER 
Buchstabe ein »B« ist, wandert die IF P°.NAME=NAME THEN 
BEGIN 

Marke vom Knoten 2 entlang der Kante POSTLEITZAHL: = P”. PLZ; (* FUNKTIONSERGEBNIS PESTLEGEN X) 
mit der Markierung »B« zum Knoten 3. P:= NIL (* ENDE DER SCHLEIFE ERZWINGEN *) 

. . . . END 
n N en se a a Er: 
stanbe (wieder ein »A«c) untersucht, SO P: = P”, NEXT; (* SONST WEITERSUCHEN A) 
daß sich die Marke von Knoten 3 zurück END: VE TERION Beer 

Listing 2. Datenspelicherung 

zu Knoten 2 bewegt. Mit dem letzten PROCEDURE LEERETABELLE; 


mit Hashing 
Buchstaben »B« kommt die Marke 
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(* LÖSCHE DIE GESAMTE HASHTABELLE *) 

VAR I: 0. . HASHSIZE,; 
BEGIN 

FOR I:= 0 TO HASHSIZE DO HASHTABLI): = NIL 
END; (* LEERETABELLE *) 


BEGIN (A HAUPTPROGRAMM *) 
LEERETABELLE,; (* NOCH IST NICHTS GESPEICHERT 
WRITELNt' SPEICHERUNG VON POSTLEITZAHLEN: (BEENDEN MIT NAME = *)'); 


WRITE(' NAME: ' ), READSTRING(N); 
WHILE NI11<>'*' DO 
BEGIN 
WRITE(' PLZ :'); READ(PLZ), 
IF PLZ = O0 THEN 
WRITELN( POSTLEITZAHL(N)) 
ELSE 
BEGIN 
WRITELN,; 
SPEICHERE(N, PLZ), 
END; 
WRITEL' NAME: '), 
END; (* WHILE *) 
END. 


(* SUCHE DIE ZUGEHÖRIGE PLZ: 


(* SPEICHERE NAMEN MIT DIESER PLZ *) 


READSTRING( N) 


Listing 2. Datenspeicherung mit Hashing (Schluß) 


Bild 6. Eine Hashtabelle hiltt, 
Daten im Arbeitsspeicher extrem 
schnell und trotzdem mit wenig 
Programmieraufwand zu finden. 
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Bild 7. 
Ein gerichteter und 
markierter Graph 





schließlich auf Knoten 3 zu liegen. Da 
nun das Wort zu Ende ist, kann man aus 
der Position der Marke entscheiden, ob 
der Graph das Wort »erkannt« hat. Die 
Marke befindet sich im Knoten 3, den 
ein dicker Rand hervorhebt. Diese Kno- 
ten sind »akzeptierende« Knoten. 
Befindet sich die Marke am Schluß auf 
einem akzeptierenden Knoten, so ist 
das gesamte Wort erkannt und gehört 
somit zum Sprachschatz des Graphen. 
Sicher verstehen Sie jetzt auch, warum 
der Graph in Bild 8 alle Worte erkennt, 
die aus einer beliebig langen Folge von 
»AB« bestehen. Mit jedem »A« wird die 
Marke auf den Knoten 2 gesetzt, von 
wo aus mit »B« der akzeptierende Kno- 
ten 3 erreicht wird. Hätten wir jedoch 
das Wort 
ABA 
der obigen Testprozedur unterzogen, 
so wäre die Marke im dritten Schritt 
ebenfalls im Knoten 2 gelandet. Da das 
Wort an dieser Stelle bereits zu Ende 
ist, die Marke aber nicht auf einem 
akzeptierenden Knoten liegt, gehört 
»ABA« nicht zur Sprache des Graphen. 
Auch das Wort 
ABAA 
bleibt unerkannt, da mit ABA die Marke 
auf Knoten 2 liegt. Für den folgenden 
Buchstaben »A« existiert jedoch keine 
Markierung an einer Kante von 2 aus, 
so daß das gesamte Wort nicht erkannt 
wird. 

Bild 9 zeigt einen Graphen, der alle 
Worte der Form 


AAB 

AABAAB 

AABAABAAB 

AABAABAABAAB... 

identifiziert. Das können Sie bei der 
Anwendung der obigen Regeln für 
einige Beispielworte leicht herausfin- 
den. 

Listing 3 stellt ein Programm dar, das 
das mühsame Verfolgen des Weges der 
Marke durch den Graphen automatisch 
durchführt. Genauer gesagt soll das 
Programm folgendes leisten: 

1. Es wird eine Beschreibung des 
Graphen eingelesen. 

2. Es wird geprüft, ob überhaupt ein 
akzeptierender Knoten erreicht werden 
kann (siehe Bild 10 für ein Gegenbei- 
spiel). 

3. Für beliebig vorgegebene Wörter 
wird geprüft, ob diese erkannt werden. 

Zunächst muß eine Datenstruktur für 
die interne Repräsentation des Gra- 
phen im Speicher des Computers 
gefunden werden. Da es beliebig viele 
Knoten und Kanten geben kann, wird 
man diese mit dynamischen Variablen 
darstellen. Graphen sind nämlich gera- 
dezu das klassische Beispiel für die 
Verwendung von Zeigern. Für jeden 
Knoten speichert man seine Nummer 
und eine Liste der Kanten, die von die- 

















= 59 





sem Knoten wegführen. Jede Kante in 
dieser Liste enthält ihrerseits die Mar- 
kierung und einen Zeiger auf den Kno- 
ten, zu dem sie führt. 


TYPE TKNOTENREF =! TKNOTEN; 
TKANTENREF =! TKANTE; 


TKNOTEN = RECORD 
NUMMER: INTEGER; 
KANTENLISTE: TKANTENREF 
END; 
TKANTE = RECORD 
MARKIERUNG : CHAR; 
NEXT: TKANTENREF; 
NACH: TKNOTENREF; 
END; 

Es gibt also zwei Zeigertypen. Zeiger 
vom Typ TKNOTENREF zeigen immer 
auf Knoten (Records vom Typ TKNO- 
TEN), während Zeiger vom Typ TKAN- 
TENREF immer auf Kanten (Records 
vom Typ TKANTE) weisen. Die Bilder 11 
und 12 verdeutlichen jeweils die interne 
Darstellung eines Graphen. Die großen 
Kästen verbildliichen Records vom Typ 
TKNOTEN. Sie enthalten also die Num- 
mer des Knotens. Diese Nummer ist 
negativ, falls es sich bei dem Knoten um 
einen akzeptierenden Knoten handelt. 
Außerdem ist jeder Knoten Kopf einer 
Liste von Records des Typs TKANTE 
(kleine Kästen). Fürjede Kante wird das 
Zeichen, mit dem die Kante markiert ist, 
und ein Zeiger auf den Knoten am Ende 
der Kante, gespeichert. Da alle Kanten, 
die an einem Knoten beginnen, zu einer 
Liste verkettet sind, wird noch das Feld 
NEXT benötigt, in dem ein Zeiger auf 
die nächste Kante in der Liste enthalten 
ist. Von »außen« erreicht man den 
gesamten Graphen nur durch die Zei- 
gervariable ANFANG. 

Als erstes nun zur Funktion 
ERKANNT. Sie verwendet diese Daten- 
struktur, um zu prüfen, ob das Wort in 
dem Array W 
VAR W: ARRAY[1..100] OF CHAR; 
akzeptiert wird. Die Strategie ist sehr 
einfach und entspricht dem obigen 
Wandern einer Marke durch den Gra- 
phen. Der Parameter Q gibt die momen- 
tane Position der Marke (auf einem Kno- 
ten) an. | indiziert den momentan bear- 
beiteten Buchstaben im Wort W. Das 
Ende des Wortes markiert ein Dollar- 
Zeichen »$«. Wurde dieses Ende gele- 
sen, so ist das Wort genau dann akzep- 
tiert, wenn der momentane Knoten (Qt!) 
ein akzeptierender Knoten ist (Nummer 
istnegativ). Ansonsten wird die Kanten- 
liste nach einer Kante mit der passen- 
den Markierung durchsucht. Stimmt die 
Markierung mit dem laufenden Buch- 
staben Wil] überein, so setzt sich die 
Prüfung mit dem nächsten Buchstaben 
und dem Endknoten der Kante fort. Die 
Funktion ERKANNT ist also rekursiv. 
Bemerkenswert ist noch die Tatsache, 
daß von einem Knoten eventuell zwei 
oder mehrere gleich markierte Kanten 
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PROGRAM GRAPH ( INPUT, OUTPUT), 


DIESES PROGRAMM DEMONSTRIERT DIE VERWENDUNG VON DYNAMISCHEN VARIABLEN 
ZUR DARSTELLUNG EINES GERICHTETEN, MARKIERTEN GRAPHEN IM SPEICHER DES 
COMPUTERS. DIE PROZEDUR GRAPHEINLESEN BAUT EIN NETZWERK AUS RECORDS 
DER TYPEN TKNOTEN UND TKANTE AUF, DESSEN ERSTER KNOTEN ÜBER DEN 
ZEIGER ANFANG ERREICHT WERDEN KANN. DIE FUNKTIONEN ISTLEER UND 
ERKANNT BENUTZEN DIESE DATENSTRUKTUR, UM DIE DURCH DEN GRAPHEN BE- 
SCHRIEBENE SPRACHE NÄHER ZU UNTERSUCHEN (S. TEXT) 
CONST ENDE = '$'; (* MARKIERUNG AM ENDE DER EINGABE 
TYPE TEINGABE = CHAR; (* DIE MARKIERUNGEN DER KANTEN BESTEHEN 
(* AUS EINZELNEN ZEICHEN 
TKNOTENREP = "TKNOTEN;, (* ZEIGER AUF EINEN KNOTEN 
TKANTENREF = TKANTE; (* ZEIGER AUF EINE KANTE 
TKNOTEN = RECORD 
NUMMER: INTEGER, (* NEGATIV, FALLS AKZEPTIEREND 
ISTMARKIERT: BOOLEAN;, (* FÜR PUNKTION ISTLEER 
KANTENLISTE: TKANTENREF; (* LISTE ALLER KANTEN, DIE 
(* VON DIESEM KNOTEN WEGFÜHREN 
(* VERKETTET ALLE KNOTEN IM GRAPH 
(“a ZU EINER LISTE 


NEXT: TKNOTENREF,;, 


END; 
TKANTE = RECORD 
MARKIERUNG: TEINGABE,;, 
NACH: TKNOTENREF,; (* ZIELKNOTEN DIESER KANTE 
NEXT: TKANTENREF; (“ ZEIGER AUF DIE NÄCHSTE KANTE, 
(%* DIE AM SELBEN KNOTEN BEGINNT 


END; 
VAR KNOTENLISTE: TKNOTENREF, (* ANFANG DER LISTE ALLER KNOTEN 
ANFANG : TKNOTENREF; (* ERSTER KNOTEN IM GRAPHEN 


W: ARRAY [1..100] OF CHAR; (* WORT FÜR PRÜFUNG, OB ERKANNT 

I: INTEGER; 
PROCEDURE GRAPHEINLESEN; 
(* KOMPLETTEN GRAPHEN IM SPEICHER AUFBAUEN. ANFANG (GLOBAL) ZEIGT AUP 
(* DEN ERSTEN EINGEGEBENEN KNOTEN. FÜR JEDEN KNOTEN WIRD ISTMARKIERT: = 
(* FALSE GESETZT. AKZEPTIERENDE KNOTEN WERDEN MIT NEGATIVEN NUMMERN 
(* GESPEICHERT. 


(# DIE EINGABE VON DER TASTATUR HAT FOLGENDES FORMAT: PRO ZEILE EINE 


”) 
A) 
“= 
= 
“) 
”) 
A) 


2) 


(* KANTE. NACHEINANDER NUMMER DES AUSGANGSKNOTENS, EIN ZEICHEN UNGLEICH“) 


(* LEERZEICHEN ALS MARKIERUNG UND DIE NUMMER DES ZIELKNOTENS. 
(* DIE LETZTE ZEILE WIRD MIT EINER O BEENDET 


VAR ISTERSTER: BOOLEAN,; (* TRUE BEIM EINLESEN DER ERSTEN KANTE 
VON : INTEGER, (* NUMMER DES AUSGANGSKNOTENS 
NACH : INTEGER, (* NUMMER DES ZIELKNOTENS 
MIT : TEINGABE; (* MARKIERUNG DEE: KANTE 
V.N : TKNOTENREF; (* ZEIGER AUF AUSGANGS- UND ZIELKNOTEN 
KANTE TKANTENREF; (* ZEIGER AUP NEU EINZUFÜGENDE KANTE 


FUNCTION SUCHEKNOTEN (N: INTEGER): TKNOTENREF; 


(*2 SUCHE IN DER LISTE ALLER KNOTEN NACH EINEM KNOTEN, DER DIE NUMMER*) 


(* N BESITZT. DAS PFUNKTIONSERGEBNIS IST EIN ZEIGER AUF EINEN RECORD *) 
(* VOM TYP TKNOTEN ODER DER WERT NIL, FALLS KEIN SOLCHER KNOTEN GE- *) 
(* FUNDEN WURDE. ”) 
VAR Q: TKNOTENREF; 
BEGIN 
Q: = KNOTENLISTE,; (* ZEIGER AUF DEN ANFANG DER LISTE ”) 
SUCHEKNOTEN: = NIL; (* FUNKTIONSERG. VORLÄUFIG FESTLEGEN r) 
WKHILE Q<»>NIL DO (* SOLANGE NOCH KNOTEN IN DER LISTE SIND *) 
IF Q . NUMMER = N THEN (”* KNOTEN GEFUNDEN, a) 
BEGIN 
SUCHEKNOTEN: = Q; (x ZEIGER ALS FUNKTIONSERGEBNIS SETZEN 4) 
Q: = NIL (* SCHLEIFE BEENDEN ”) 
END 
ELSE 
0: = Q°. NEXT; (* SONST WEITER MIT NÄCHSTEM KNOTEN IN a) 
(*% DER LISTE A) 
END; (* SUCHEKNOTEN *) 
FUNCTION NEUERKNOTEN (N: INTEGER): TKNOTENREF,; 
(* LEGE NEUEN ( UNMARKIERTEN) KNOTEN MIT DER NUMMER N AN. DER RECORD *) 
(% WIRD IN DIE LISTE ALLER RECORDS DES GRAPHEN EINGEFÜGT, DAMIT ER *) 
(®* SPÄTER MIT DER FUNKTION SUCHEKNOTEN GEFUNDEN WIRD. n) 
VAR Q: TKNOTENREF,; 
BEGIN 
NEWIQ); (* SPEICHERPLATZ FÜR NEUEN RECORD HOLEN A) 
WITH Q° DO (* RECORD KORREKT VORBELEGEN: “) 
BEGIN 
NUMMER: «= N; (* NUMMER DES KNOTENS r) 
ISTMARKIERT: » FALSE: (* NOCH UNMARKIERT ”) 
KANTENLISTE: =» NIL; (*2 BIS JETZT BEGINNT NOCH KEINE KANTE AN *%) 
(* DIESEM KNOTEN. “) 
NEXT: = KNOTENLISTE; (2 Q WIRD AM ANFANG DER KNOTENLISTE EIN- * 
END, .(® GEFPÜGT. “) 
KNOTENLISTE: =-Q; (“2 Q@ IST JETZT ERSTER KNOTEN IN KNOTENL. *) 
NEUERKNOTEN: =Q,; (“ FUNKTIONSERGEBNIS IST ZEIGER AUF Q° a) 
END; (* NEUERKNOTEN *) 
BEGIN (* GRAPHEINLESEN *) 
KNOTENLISTE: » NIL; (* NOCH IST DIE KNOTENLISTE LEER “) 
ISTERSTER: = TRUE; (* DIE FOLGENDE KANTE IST DIE ERSTE a) 
READ( VON); 
WHILE VON<>O DO (* ENDE DER EINGABE WIRD DURCH KNOTEN MIT*) 
BEGIN (* DER NUMMER 0 GEKENNZEICHNET “) 
REPEAT 
READ( NIT) (* MARKIERUNG UNGLEICH LEERZEICHEN LESEN *) 
UNTIL MIT<C»H' ', _ 
READLN ( NACH); (* JETZT NOCH DIE NUMMER DES ENDKNOTENS *) 
Y:= SUCHEKNOTEN( VON); (* HOLE ZEIGER AUF DEN AUSGANGSKNOTEN “) 
IF V=-NIL THEN (* AUSGANGSKNOTEN IST NEU, DESHALB *) 
V: «NEUERKNOTEN( VON), (* NEUEN KNOTEN ANLEGEN a) 












































N: = SUCHEKNOTEN( NACH), (#“ HOLE ZEIGER AUF DEN ZIELKNOTEN %.) 
IF N=-NIL THEN (* FALLS NICHT BEREITS GESPEICHERT, *) 

N: = NEUERKNOTEN( NACH); (* NEUEN KNOTEN ANLEGEN. *“) 
NEW( KANTE), (* BILDE JETZT EINE NEUE KANTE 5) 
KANTE . MARKIERUNG: = MIT;(* EIN ZEICHEN ALS MARKIERUNG EINTRAGEN *) 
KANTE . NACH: = N; (* KANTE ENTHÄLT ZEIGER AUF ZIELKNOTEN a) 


(* JETZT KANTE IN DER LISTE DER KANTEN VON KNOTEN V° EINFÜGEN: 
KANTE . NEXT: = V° KANTENLISTE,; 
V’.KANTENLISTE: = KANTE; 
IE ISTERSTER THEN (* BEIM ERSTEN KNOTEN ANFANG SETZEN 
BEGIN 
ISTERSTER: = FALSE; 
ANFANG: = V 
END; 
READ( VON) 
END; (* WHILE %) 
END; (* GRAPHEINLESEN *) 
FUNCTION ISTLEER (Q: TKNOTENREF): BOOLEAN; 
(* DIESE FUNKTION PRÜFT FÜR DEN KNOTEN Q ,„ OB KEIN AKZEPTIERENDER 
(®* KNOTEN ERREICHT WERDEN KANN. IN DIESEM FALL IST ISTLEER FÜR ALLE 
(“= VON Q ERREICHBAREN ( NICHT MARKIERTEN) KNOTEN EBENFALLS TRUE 
= AM ANFANG MUSS DAS FELD ISTMARKIERT IM RECORD TKNOTEN FÜR ALLE 
(* KNOTEN AUF FALSE GESETZT WERDEN 
VAR LEER : BOOLEAN; 
NACHF: TKANTENREF; 
BEGIN 
Q°. ISTMARKIERT: = TRUE; 


(2 MARKIERE KNOTEN, DAMIT DIESER NICHT 
(* DOPPELT GEPRÜFT WIRD 

LEER: = Q°. NUMMER» =0; (* FALLS Q SELBST EIN AKZEPTIERENDER 
(* KNOTEN IST, KANN NATÜRLICH EIN AKZ. 
(* KNOTEN ERREICHT WERDEN. 
(* ZEIGER AUF DIE ERSTE KANTE, DIE BEI 

(* KNOTEN Q BEGINNT 


NACHF: = Q°. KANTENLISTE; 


“) 
Aa 
) 
“) 
a 
r) 


u 


(* SOLANGE KEIN AKZEPTIERENDER KNOTEN ERREICHT WURDE, VERFOLGE ALLE*) 


(* KANTEN, DIE VON Q WEGFÜHREN: 
WHILE LEER AND ( NACHF<>NIL) DO 
BEGIN 
IF NOT NACHF . NACH . ISTMARKIERT THEN 
(* FALLS ZIELKNOTEN NER KANTE UNMARKIERT 


LEER: = ISTLEER( NACHF . NACH); (* PRÜFE DISEN ZIELKNOTEN 
NACHF: = NACHF . NEXT; (* WEITER MIT DER NÄCHSTEN KANTE 
END; 
ISTLEER: = LEER; (“* FALLS LEER IMMER NOCH TRUE IST, WIRD 


(* ALSO KEIN AKZEPPT. KNOTEN ERREICHT 
END, (* I1STLEER *) 
FUNCTION ERKANNT (Q: TKNOTENREF, 1: INTEGER): BOOLEAN, 
("* PRÜFE, OB VON Q AUS MIT DER BUCHSTABENFOLGE AB WII) EIN AKZEP- 


(* TIERENDER KNOTEN ERREICHT WIRD. 
VAR OK : BOOLEAN; 
NACHF: TKANTENREF; 
BEGIN 
IF WEI) = ENDE THEN (* ENDE DES WORTES W ERREICHT: 
ERKANNT: = Q . NUMMER«<O (* ERKANNT, FALLS Q EIN AKZEPTIERENDER 
(* ZUSTAND IST 
ELSE 
BEGIN 
OK: = FALSE; (* NOCH IST KEIN AKZ. ZUSTAND GEFUNDEN 


NACHF: = Q . KANTENLISTE;(* 2EIGER AUF DEN ANFANG DER LISTE DER 
(* KANTEN, DIE BEI Q BEGINNEN 
(* PROBIERE ALLE KANTEN, DIE BEI Q BEGINNEN UND MIT WIND 
(* MARKIERT SIND, BIS ERFOLG (OK=TRUE) 
WHILE NOT OK AND (NACHF<>NIL) DO 
BEGIN 
IF NACHF". MARKIERUNG=WII] THEN 
OK: = ERKANNTE NACHF . NACH, Ir1); 
(* WEITER MIT DEM NÄCHSTE BUCHSTABEN 
NACHF: = NACHF . NEXT; (* NÄCHSTE KANTE IN DER LISTE 
END; 
ERKANNT: = OX (* FUNKTIONSERGEBNIS FESTLEGEN 
END; (* IF A) 
END; (“* ERKANNT *%) 
BEGIN (* HAUPTPROGRAMM *) 


GRAPHEINLESEN: (* HOLE BESCHREIBUNG DES GRAPHEN 
WRITEU' DIE AKZEPTIERTE SPRACHE IST '‘); 
IF NOT ISTLEER(ANFANG) THEN (* PRÜFE, OB VOM ANFANGSKNOTEN EIN 


(* AKZ. KNOTEN ERREICHBAR IST. 
WRITE (' NICHT °'),; 
WRITELN (' LEER.'),; 
REPEAT 
WRITELN (' GEBEN SIE JETZT DAS ZU TESTENDE WORT EIN ($ AM WORTENDE) '); 
WHRITELN (' CPROGRAMMENDE MIT DEM WORT $)'‘); 
I:= 0; 
REPEAT (* STRING W EINLESEN 
I: = I»1; READ (WLEI)), 
UNTIL WEII=ENDE, 
WRITELN, WRITE ('‘ DAS WORT IST °'‘), 
IF NOT ERKANNTU ANFANG, 1) THEN (*% PRÜFE, OB MIT DEM WORT W VOM 
(* ANFANGSKNOTEN EIN AKZ. KNOTEN 
(* ERREICHBAR IST. 
WRITEC' NICHT °'),; 
WRITELN(' IN DER SPRACHE ENTHALTEN. '); 
UNTIL Weil='$', 
END. 


Listing 3. Das Programm zum Untersuchen von Graphen. Das Zeichen »'« 
entspricht dem Hochpfell (» !«). 


‚wıNalaı, h 
e = R . 


“) 


2) 
”“) 


“) 


“) 


“) 


A) 


“) 








ausgehen können. In diesem Fall prüft 
ERKANNT alle Wege, bis eine Kante zu 
einem Erfolg führt. 

Ahnlich sieht die Lösung der Teilauf- 
gabe 2 aus. Um festzustellen, ob über- 
haupt ein Wort erkannt wird, genügt es, 
eine beliebig markierte Kantenfolge 
vom Anfangsknoten zu einem akzeptie- 
renden Knoten zu finden. Daher wird 
beim Aufruf ISTLEER für den Knoten Q, 
der als Parameter übergeben wird, 
zunächst geprüft, ob Q selbst ein 
akzeptierender Knoten ist. Wenn ja, so 
existiert ein akzeptiertes Wort. Anson- 
sten werden alle Kanten verfolgt, und 
geprüft, ob man über eine dieser Kan- 
ten einen Endzustand erreichen kann. 
Wiederum ruft sich als ISTLEER rekur- 
siv auf. Jedoch würde ohne weitere 
Vorkehrung dieser Algorithmus beim 
Graphen aus Bild 10 in eine Endlos- 
schleife geraten. Vom Ausgangsknoten 
1 erreicht man den Knoten 2. Da man 
alle Kanten von 2 verfolgt, gelangt man 
über die Kante »B« zurück zu Knoten 1. 
Von dort springt man wieder zu Knoten 
2 und so weiter. Die Lösung besteht 
darin, daß man alle bereits besuchten 
Knoten markiert. Dazu wird der Record 
um das Feld 
ISTMARKERT: BOOLEAN 
erweitert. Bei der Eingabe des Graphen 
sind alle Knoten unmarkiert. Erreicht 
man jedoch in der Funktion ISTLEER 
den Knoten Q, so wird dieser mit 
QI :ISTMARKERT:= TRUE 
gekennzeichnet. Bevor man nun einen 
rekursiven Aufruf der Funktion IST- 
LEER ausführt, wird zunächst wieder 
geprüft, ob der Knoten nicht bereits 
untersucht und markiert wurde. 

Das größte Problem ist sicherlich die 
Eingabe eines Graphen. In diesem Bei- 
spiel wird eine kantenorientierte Ein- 
gabe vorgenommen: Der Graph in Bild 8 
wird folgendermaßen beschrieben: 


1A 2 
2B-3 
3A 2 
0 

Jede Zeile benennt also die Nummer 
des Anfangsknoten, die Markierung der 
Kante und die Nummer des Endkno- 
tens der Kante. Das Ende der Eingabe 
markiert die Zahl Null. Die Eingabe 
nimmt die Prozedur EINLESEN vor. 
Zunächst wird die Nummer des Aus- 
gangsknotens (VON) gelesen, an- 
schließend alle Leerzeichen ignoriert, 
bis die Markierung (MIT) indentifiziert 
wurde. Daran schließt sich die Nummer 
des Endknotens an. Akzeptierende 
Knoten sind wieder durch negative 
Zahlen kenntlich. 

Für jeden Knoten wird zunächst fest- 
gestellt, ob bereits ein Record vom Typ 
TKNOTEN mit dieser Nummer existiert. 
Die Funktion SUCHEKNOTEN liefert zu 
einer Nummer N einen Zeiger auf einen 
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Bild 8. Dieser Graph kann eine einfache 
Zeichenfolge »erkennen« 


A A B 


Bild 9. Ein Graph zum Erkennen einer 
weiteren Zeichenfolge 


Bild 10. Dieser» 
Graph akzeptiert überhaupt kein Wort 





( ANFANG ) 





Bild 11. Interne Zeigerdarstellung des Graphen aus Bild 8 


ANFANG 


ONE Dan 
DOE 


BlId 12. Interne Darstellung des Graphen aus Bild 10 Im Speicher 





ıı 2 A 2 

2B- 2493 

IA, 2 J3JB-4 

0 -4ı4 2 
DIR AKZBEPTIERTE SPRACHE IST NICHT LEER. 0 
ABaB$ DIE AKZEPTIERTE SPRACHE SIT NICHT LEER 
DAS WORT IST IN DER SPRACHE ENTHALTEN AAB$ 
AubAS$ DAS WORT IST IN DER SPRACHE ENTHALTEN 
DAS WORT IST NICHT IN DER SPRACHE ENTHALTEN AABbAABS 
aa$ DAS WORT IST IN DER SPRACHE ENTHALTEN 
DAS WORT IST NICHT IN DER SPRACHE ENTHALTEN. a$ 
s DAS KURT IST NICHT IN DER SPRACHE ENTHALTEN 





Bild 13. Einige Probeläufe für den Graphen aus Bild 8 


m a au ww ND m — 
> (> > u > D> 
Den wen 


0 
DIE AKZEPTIERTE SPRACHE IST LEER 
$ 
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Knoten-Record, oder den Wert NIL, 
falls noch kein solcher Record vorkam. 
Eventuell muß also mit der Funktion 
NEUERKNOTEN ein Knoten mit der 
Nummer N angelegt werden. Die Funk- 
tion liefert einen Zeiger auf den neuen 
Record, der außerdem als unmarkiert 
gekennzeichnet wird. 

Anschließend kann in EINLESEN ein 
neuer Record vom Typ TKANTE mit der 
angegebenen Markierung angelegt 
werden. Dabei wird im Feld NACH ein 
Zeiger auf den Endknoten N (mit der 
Nummer NACH) eingetragen und 
schließlich dieser Kanten-Record in die 
Liste der Kanten des Knotens V (mit der 
Nummer VON) eingefügt. 

Da der Ausgangsknoten immer als 
erster in der Eingabe genannt wird, 
benutzt man die boolesche Variable 
ISTERSTER. Falls ISTERSTER=TRUE 
ist, muß also der Zeiger ANFANGSK- 
NOTEN noch auf den Record VI 
gesetzt werden. 

Einige Probeläufe des Programmes 
mit verschiedenen Graphen zeigt Bild 
13. 

Natürlich ist nicht zu erwarten, daß 
ein absoluter Anfänger den gesamten 
Artikel sofort in die Praxis umsetzen 
kann. Die letzten Beispiele zeigen 
jedoch deutlich, daß Pascal für kompli- 
ziertere Aufgaben einen deutlichen Lei- 
stungsvorsprung gegenüber anderen 
Sprachen besitzt, die entweder nur ein- 
fache Datenstrukturen aufweisen 
(Basic, Fortran, Cobol), oder aber keine 
so wirkungsvolle Abstraktion von der 
internen Darstellung der Daten erlau- 
ben, so daß die Typüberprüfung in Aus- 
drücken und bei der Parameterüber- 
gabe auf den Programmierer abgewälzt 
wird (C und Forth). 

(Florian Matthes/ev) 
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Cursor-Kur 














mit Turbo-Pascal 


Der unstet flackernde Cursor des C 128 ist vielen 
CPIM-Anwendern ein Dorn im Auge. Hier naht 
Abhilfe in Form eines Turbo-Pascal-Programms. 


ommocdore hat beim neuen Basic 7.O an den gestreß- 

ten Programmierer gedacht und gleich mehrere mög- 

liche Cursor-Arten vorprogrammiert, die auf einfache 
Weise, nämlich durch Drücken der Escape-Taste und eines 
Buchstabens, für den Anwender erreichbar sind. So ist 
sowohl ein blinkender Strich- oder Unterstreichungs-Cursor 
wie auch ein stehender Block-Cursor machbar (siehe 
Tabelle). 

Anders allerdings sieht es im CP/M-Modus des Computers 
aus. Hier sind dem Programmierer die Hände gebunden. Er 
muß sich wohl oder übel den närrisch flackernden Cursor 
gefallen lassen. 

Unter CP/M sind Eingriffe in das Betriebssystem des Com- 
Puters weitaus schwieriger zu realisieren als unter Basic. Für 
die Mehrheit der Commodore-Besitzer ist die Maschinen- 
sprache des Z80-Prozessors wohl mehr als ein Buch mit sie- 
ben Siegeln, so daß ein direkter Zugriff per Assembler aus- 
scheidet. Außerdem erfordern Eingriffe in das Betriebssy- 
stem unter CP/M genaueste Kenntnisse des CP/M-Systems. 
Auch diese Kenntnisse dürften bei vielen Anwendern fehlen. 

Aber dies ist trotzdem noch kein Grund zum Verzweifeln, 
denn wozu gibt es höhere Programmiersprachen? Aus oben- 


(#gu+®%) 


(BRUDER EHEN HEHE HU EHE EUER THE HER) 
(« Beispiel) für Zugriff auf die 1/0-Ports des 8518: ®) 
(#8 Utility zum komfortablen ändern des VDC Cursor Modes #) 
(® Turbo Pascal auf Commodore 12B unter CP/M ®) 
(VRR UHUREUHUHEERREUREHUHRUERUUUHRUUREUTUEREHURERERURUREER) 


program cursorset (input, output);z 


(e Maske für Blinkbits in Reg. 18 ®) 
(# Rasterstartzeile des Cursors #) 


var BlinkMaske, 
StartLine: byte; 
cı charı 


procedure PortDut (adrı integer; wert: byte); 
(#8 Ausgabe von wert auf dem 1&6-Bit-Port adr e) 
begin 
inline (Sed/$4b/adr / 
sSa/wert/ 
sad/$s79 (# 
) 
end (8 procedure PaortOut #); 


(e LD 
(e LD 
OUT 


BC, (adr) ®“) 
A, (wert) ®) 
(C),A) ®) 


procedure PortIn (adrı: integer; var wert: byte)j 
(8 Lesen von Port adr nach wert ®) 
begin 
inline 1(Sed/$4b /adr / (e LD 

Sad/878/ (®e IN 
sSdd/S2a/wert/ (#e LD 
$dAd/$877/$380/ (« LD 
Sdd/s3IA/sB1/sAB (= LD 
> 

end (® procedure PortIn #); 


BC, (adr) 

A,(C 

IX, (wert) 
(1I4+@),A 
(IX+1),0 


tunction vdcIn (regı byte)ı byte; 
(® Liefert den Wert des VDC-Registers reg ®) 
var sı bytaez (# Hiltfsevariable ®) 
begin 
PortDut (8d4B8, rag); 
repeat 
PortIin ($d4B8, x) (a 
until x>=1283 
Portin ($sd4AB1, x); 
vdcin ı= x 
end (®e function vdciIn %); 


(4 Registeradrause an VODC #) 
Status lesen #) 


(# Daten-Register lesen #) 


procedure vdcOut (rag, wert: byte); 
(e Schreibt wert in VDC-Register reg #) 
var xı bytejz (8 Hılfsvariable ®) 
begin 
PortDut ($sdABB, rag) 
repeat 


(#8 Registeradresse an VDC #) 





genannter Not entstand das folgende Programm in Turbo- 
Pascal 3.0. Es bietet dem Benutzer die Möglichkeit, sich sei- 
nen Cursor nach eigenen Wünschen menügesteuert anzu- 
passen. Das Programm kann nach dem Eingeben in ein 
COM-File compiliert werden, so daß man es ohne Probleme 
auf all seinen Disketten installieren kann. Es besteht sogar 
die Möglichkeit, das Programm von PROFILE.SUB aus aufzu- 
rufen, damit spart man sich das Laden nach dem BOOTen. 
Nach der Meldung »Cursor-Mode-Swap für © 128 und CP/M 
3.0« kann mansich durch zwei oder drei Tastendrucke seinen 
persönlichen Cursor installieren. 

Noch etwas zum Abtippen: Das Listing wurde im DIN- 
Modus der Tastatur eingegeben. Daher konnte zwar mit deut- 
schen Umlauten gearbeitet werden, die geschweiften Kom- 
mentarklammern und die eckigen Mengenklammern wurden 
aber durch die von Turbo-Pascal ebenfalls zugelassenen 
Ersatzzeichen »(*« und »*)« (für geschweifte Klammern) 
beziehungsweise »(.« und ».)« (für eckige Klammern) ersetzt. 

(Udo Reetz/ev) 


Cursor-Mode 


Block 
Strich 


Escape-Sequenz 


ESC+S 
ESC + U 
ESC+F 
ESC+E 


Blinken 
Stehen 





Tabelle der möglichen Cursor-Formen im Basic 7.0 


Partin (8sdAB8, x) (« Status lesen #) 
until x>=1283 
PortQDut ($d4Bi, wert) 


endz3 


(* Daten-Register schreiben ®#) 


begin (® maın ®) 
clracr; 
writeln ("Cursor -Mode-Swap tür C 128 und CP/M 3.8: 20); 
writeln ( ==sm=2mme2Szzomunszemsmmanzmamznnnmmmmmmmmm'g 20) | 
writelng writeln; writelns; writeln; 
write (' Cursor B)linkend oder S)tehend ?'); 
repeat 
read (kbd, c)y 
until c in (. 'b’, 'B’, 's', 'S’ .)3 
writeln (c)g writeln; 
it. an Kae TE, Te 
then BlinkMaske := 8 
else 
begin 
write (' 
repeat 
read (kbhd, c); 
until c in (. 's', 'S’, 'n’, 'N 
writeln (c)g writelng 
ıitserin Lt. ei, 757 ,) 
then BlinkMaske ı= $48 
else BlinkMaske ı= $4AQ 
end (® else #);3 
write (' U)lnderline- oder B)lockcursor ? '’)yı 
repeat 
read tkbd, c)j 
until c in (. 'u’, 'U’, 'b’, ’B’ .Ig 
writeln (c)g writelng 
it ce in Co 07, AU) 
then Startline ı= 7 
else StartLline ı= B; 
writeln; writeln; 
writeln ('®ses2e Änderungen durchführen ? «eee'); 
repeat 
read (kbd, c) 
until c in (. 'j’, J,d 121 
writeln (Ic); writeln; 
if ein (. It -) 
then 
begin 
vdcDut (18, BlinkMaske or StartLina)j 
vdcOut (11,7) 
end (®* elue ®) 
(# program cursorset ®) 


S)chnell oder N)ormal blinken ? ')j 


.)7 


end. 


Listing zu unserer Cursor-Kur 


gesamt flaecheı «-gesamtflasche+landkaufı 
ver anagenı =ver nnagen- (landkauf«®bodenpreis)ı 
END 





ELSE 
BEGIN 


Möchten Sie auch einmal wie ein König ein Land gesantflaacheı =gesantflasche-landkaufı 
regieren und das Staatsgeschick lenken? Dann EN TEERRE 
versuchen Sie, als Kaiser Ihr Reich instand zu hal- | }o4erpr=i=1=28*random 15) ı 


IF getreide = true THEN 


ten und für Wohlstand zu sorgen. BEGIN 


vorratı=vorrat-verkaufj 
ver moagan ı =ver moagen + (kornpreistverkauf) 


aiser oder auch Hammurabi ist eine Strategie- END; 

Simulation. Ihre Aufgabe ist es, durch Landkäufe | Yo Tat "vera u eva 

oder -verkaufe, Verkauf von Getreide optimale Aus- ee een eaabenı 
nutzung der Anbauflächen und gerechte Verteilung der Nah- aubgn = 7 ee ol. 
rungsmittel an die Bevölkerung das Reich in bestem Zustand BEE EI aenacchnshektarerkeagı 

zu erhalten. So kann zum Beispiel das Land zugrunde gehen, Sorratı-vorratturnte; 

wenn die Bevölkerung nichts zu essen hat. Andererseits wol- ee 
len die Leute eben mit vollem Bauch weniger arbeiten, so daß 

die Produktivität absinkt. Regeln Sie alles so, daß es Ihrem 

Reich wohler geht, so daß Sie lange regieren können. 





*laecheprokopf ı »gesanttlaeche/voik; 

gebar ana ı =r andom (98) ı 

gestorbens: =randonm (25) 7; 

volkı=valk+geborene-gestarbane; 
END; 


PROCEDURE zustandsausgabe; 
BEGIN 
writelnt Momantaner SEpielsatandı ')g 
writelng 
write('Wir schreiben das ')j 
IF zaehler>jahre THEN zashlerı=jahrej 


Das Programm »Kaiser« (Listing) ist nur ein kleines, aber 


lauffähiges Grundgerüst, das ohne weiteres ausbaufähig ist. 
So können noch Faktoren wie arbeitsfaule Bevölkerung, 
Überfälle brandschatzender Horden, Unwetterkatastrophen 
oder vieles mehr mit integriert werden, um das Spiel reizvoller 
zu gestalten. Je komplexer die Faktoren sind, desto attrakti- 
ver wird auch das Spiel selbst. 

Die Random-Funktion, mit der hier gearbeitet wird, ist nicht 
in jedem Pascal implementiert. Fehlt sie beilhnen, so müssen 
Sie noch eine Prozedur »random« mit in das Programm ein- 
bauen. Spielen Sie ruhig etwas mit dem Programm und bauen 
Sie von Zeit zu Zeit noch weitere Faktoren ein. Sie werden 
sehen: Durch viele Ereignisse, die das Geschehen beeinflus- 
sen können, gewinnt Kaiser immer mehr an Reiz. 

(Dieter Mayer/hi) 


PROGRAM kaiserz 


CONST 
produktivitaet = 75 


VAR 
anbauflasche ,gesamtflasche,landkauf, 
vorrat, flaecheprokopf ‚rattenschaden, 
hektarertrag,ernte,zuteilung, nahrungpraokapft, 
geburtenrate, sterberate, ausgaben,kornpreis, 
verkauf ‚vermoegenırealj 
jahr , ,ahreı@. .20ı 
zaehler ,volk,zahl ‚geborene, 
gestorbena ,bodenpreisıintager; 
getreide,kaufen,sinnvollıbooleans 
inputıcharj;z 


PROCEDURE initialisierungj 


BEGIN 
zaehler als 
kornpreis s=Jj 


gesamttlasche ı=3@8G0B; 
anbauflasche ı:=S888; 


bodenpreis ı=38j 
ver moegen ı «20880; 
hektarertrag ı=4j 
vorrat ı =20806)} 
ernte ı=12000j 
volk s=4B000) 
*laecheprokopf ı »gesamtflaache/valkı 
gebor ane ‚=; 
gestorbene ı=0j 
nahr ungpr okop ff : =28j 
ausgaben ı=varmosgen/Bj 
ENDj 
PROCEDURE berechnungs 
BEGIN 
IF kaufen = true THEN 
BEGIN 
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writa(zaahler)j 

writelnt'. Jahr Ihrer Herrschaft. ')j 
writelng 

writel‘ Ihr Valk besteht zur Zeit aus ')j 
write(valk)j; 

writeln(’ Einwohnern, wobei Bie’)j 
write (geborene); 

write(’° Geburten und ’)3 
writeigestorbene); 

writeln(‘ verstorbene Personen haben. ')j 
write(' Sie besitzen '); 
write(gesamttlaecheıBı2)j 

writae(‘ Hektar Land, wavan ')j 
writelanbauflaecheıdı2)j 

writelnt’ Hektar bebaut sind. ')ı 
write( Jeder Buerger bewahnt durchschnittlich ')j 
writetflaecheprokopfı&äı2)5 

writeln(‘ Hektar Boden. ')j 

write('Der Vorrat belaeuft sich auf '’)j 
write(vorratı18:2)3; 

writealnt’ DZ Getreide. ')ı 

write( Die Staatskasse enthasalt °)j 
write (vermoegaeni 18:12)3 

writelnt' Taler. ')j 

write(  Staatsausgaben dieses Jahrı ')3 
wrıtelausgaben ı9ı2)j 

writeln(t’ Taler. ')j 

write( ’Heutiger Bodenpreisı ')3 
write(bodenpreis)j; 

writeln(’ Taler je Hektar. ')j 

write Jahresertragı 93 
writethektarertrag:ıBı2)j 

writeln(‘ DZ Getreide je Haktar.')j 
writet( 'Kornpreis ı 93 
write(kornpreisı5ı2)j;3 

writelnt‘ Taler je DZ.’)j 

write Besanmterntae ı I 
writelernta:ıßı2)3j 

writeln(‘ DZ Getreide. ‘)j 

writet ’Durch Ratten wurden ’)j 
write(rattenschadenıSı2)j 

writelnt‘ % der Ernte vernichtet. ‘)j 


zaahlerı=zaahlar+i1j 


PROCEDURE eingabajı 
BEGIN 


writelng 
write('’Moechten Sie Land kaufen ');3 
writet’oder verkaufen (K/V) ? 
read (input)j 
writelng 
IF input ='k' THEN kaufenı=true 

ELSE kaufenı=#talse; 
write( Wieviel Hektar ? ')g 
read (landkauf); 
writeln; 
write( Gedenken Sie, Getreide ')j 
write(l'zu exportieren (J/N) ? ') 
read (input)ı 
writeln; 
IF input ="j' THEN 

BEGIN 


getreideı=trus; 
writet Wieviel DZ ? 
read (verkauf); 
writeln; 
END 
ELSE getreidesı=falae; 
write 'Wieviele DZ Getreide goennen 
write(’ Sie jedem Untertan ? ')3 
read (zuteilung); 
writein; 
write( Wieviele Hektar duerfen ')j 
write(' die Bauern bewirtachatften ? ')j 
read(anbauflasche)j; 
writeln; 
END; 


PROCEDURE eingabepruefungı 
BEGIN 
writeln; 
IF kaufen = true THEN 
IF (landkauf®bodenpreia) 
BEGIN 
writet'Landkauf erlaubt Ihre ')j 
writeln( 'Staatskasse nicht. '); 
sinnvollı=falası 
END; 
IF kaufen = talsee THEN 
IF gesamttlasche-landkauf <@B THEN 
BEGIN 
writeln(t 'Soaviel Land besitzen Sie nicht. ')j 
sinnvollı=falsejz 
END; 
zuteilung <=B THEN 
BEGIN 
writel ' Leuteschinder - Sollen ’); 
writeln!'’die Buerger verhungern ?'); 
sinnvollı=false; 
END; 
zuteilung >= (vorrat/valk) THEN 
BEGIN 
writeln(t'’So gross sind Ihre Vorraete nicht. )j 
sinnvollrı=false; 
END; 


>= vermoegen THEN 





Dieses Programm nimmt Ihnen die überaus lästige 
Arbeit ab, alle Zahlen herauszufinden, durch die 
eine andere teilbar ist. 


icher hatten Sie schon gelegentlich mal das Problem, 
daß Sie alle Teiler einer Zahl herausfinden wollten. Sei 
es für die Verwendung im Bruchrechnen oder zur 
Ermittlung von Primzahlen. Diese Arbeit nimmt Ihnen nun die 
Prozedur »Teiler« (Listing) ab. 

Nach der Compilation werden Sie gefragt, aus welcher Zahl 
alle Teiler berechnet werden sollen. Bitte geben Sie hier nur 
ganze Zahlen ein. Das Programm gibt Ihnen nun alle Teiler die- 
ser Zahl aus. Wird kein Teiler gefunden, so ist es eine Prim- 
zahl, was auch ein Antwortsatz bekannt gibt. 





Nach der Eingabe der Zahl, aus der die Teiler berechnet 
werden sollen, wird zuerst ein Flag (Schalter) auf »unwahr« 
gesetzt. Danach versucht das Programm, die eingegebene 
Zahl so oft wie möglich zu dividieren. Sind Teiler vorhanden, 
werden diese ausgegeben und das Flag auf »wahr« gesetzt. 
Am Ende der Prozedur wird noch einmal der Zustand des 
Flags abgefragt. Ist es sunwahr«, so konnte kein Teiler gefun- 
den werden, und die Meldung »Diese Zahl ist eine Primzahl« 
erscheint auf dem Bildschirm. 


ah ala . 


Berechnen 
gemeinsamer Teiler 


IF anbauflaeche <=8B THEN 
BEGIN 
write(  Spassvogel —- wo wollen 3 
writeln( Sie denn anbauen 7°’); 
sinnvoll:=talse; 
END; 
anbauflasche >8.5* (gesamtflaeche+landkauf) THEN 
BEGIN 
write Nur die Haslfte des Landes )j; 
writeln('kann bebaut werden. )j 
sinnvollı=talse; 
END; 
anbauflaeche>produktivitaet*valk THEN 
BEGIN 
write( ‘Soviel koennen Ihre Leute '); 
writeln('nicht bebauen. ')j; 
sinnvollı=tfalsej 
END; 
END; 
BEGIN 
initialisierungı 
writeln( Wieviele Jahre moaechten Sie regieren ?')j 
readint(jahre); 
zahl ı =random (99) +15 
FOR jahrı=i TO jahre DO 
BEGIN 
zustandsausgabej 
REPEAT 
BEGIN 
sinnvollı=trues 
eingabej 
eingabepruefungı 
END; 
UNTIL sinnvollj 
berachnungj 
END; 
zustandsausgabaj 
END. 


Listing »Kaiser«: Bestimmen Sie über das Wohl und Wehe 
Ihres Volkes 











Die Prozedur eignet sich gut zum Einbinden in mathemati- 
sche Programme, also etwa in ein Mathe-Lexikon auf dem 
Computer. (Dieter Mayer/hi) 


FROGRAM Teıler (Input „Dutput); 
VAR Zahl „Teiler: Integer; 
Schalter:boolean; 

BEGIN 
write ("Bitte geben Sie die Zahl ein, 
aus der die Teiler berechnet ’)3;3 
wrıteln ('werden sollen '!’); 
read (Zahl); 

Schalter:=FALSE; 
WHILE Zahl>O DO 
REGIN 
FOR Teiler:=2 TO TRUNC (Zahl/2) DO 
BEGIN 
IF Zahl MOD (Teiler)=Oo 
THEN BEGIN write (Teiler:5); 
Schalter :=TRUE 
END; 
END; 
IF Schalter=FALSE 
THEN write (’ Diese Zahl 
ist eine Primzahl ’); 
wrıiteln; wrıtelnz 
read (Zahl); 
Schalter :=FALSE; 


Listing »Teiler« 














Werden lauffähige Turbo- 
Pascal-Programme erzeugt, 
so verbraucht die in jedem 
xxx.com-File vorhandene 
Run-Time-Library 8 KByte. 


ollen mehrere kurze Programme auf einer Diskette 
gespeichert werden, stößt man schnell an die Grenze 
der verfügbaren Speicher-Kapazität. Der Turbo-Pas- 
cal-Compiler bietet mit der H-Option die Möglichkeit, Pro- 
gramme ohne die Run-Time-Library zu compilieren und sie 
dann als sogenannte Chain-Files aufzurufen. Von dieser 
Möglichkeit, Platz zu sparen, macht das vorliegende Pro- 
gramm Gebrauch. 

Die Benutzer-Programme werden speicherplatzsparend 
als xxx.chn-Files direkt auf die Filer-Diskette compiliert, ins 
Inhaltsverzeichnis (Inhalt.fil) eingelesen und dann von Filer 
aus aufgerufen. Um wieder zu Filer zurückkehren zu können, 
sollten die Benutzer-Programme mit der Prozedur »Ende« 
(siehe Listing) abgeschlossen werden. 

Die Auswahl der einzelnen Funktionen von Filer erfolgt mit 
den Cursor-Tasten »Pfeilnach oben«, »..nach unten«, »..rechts 
und links«e. Die jeweilige Funktion beziehungsweise die 
Benutzer-Programme werden invers als Leuchtfeld darge- 
stellt. Durch Drücken der Home-Taste wird die angezeigte 
Funktion (Benutzer-Programm) ausgeführt. 





progran filer; 


(% Written by M.A. Schlösser X) 
Rheinstr. 28 Y) 
6188 Darmstadt %) 
Tel: 86151 - 2 25 38% 
(X Stand vom 25. Juni 1985 %) 


RREERRTRRRIERLRREHIRBBRRERBBBEBBBBBRBBBGRBBBBUBBRKSEH 
(% Turbo-Pascal Programme können speicherplatz-sparend %) 
(X mıt der K-Option des Campilers compiliert und von %) 
(X diesem Programm aus aufgerufen werden. % 
REREEEBRRRRIBBREBBBREKKRBEBBBRERBBBRLRBBRBEBRRRRUGRBBGH 


tvpe ınhaltrec = record 
Prognane: string (.12.); 
end; 


var dateibuffer: inhaltrec; 
datei s file of inhaltrec: 
tvpe 
defString = arrav (.1..32.) of string (.12.); 
detset = set of char; 
anystring = string (.88.); 


const 


beil = *G; (X Glocke %) 
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TUT TEN 


»Programm« führt die Benutzer-Programme aus, »Neuauf- 
nahme« liest ein auf der Diskette vorliegendes xxx.chn- 
Programm in das Inhaltsverzeichnis ein, »Löschen, Umbe- 
nennen und CP/M« erklären sich von allein und bedürfen 
somit keiner weiteren Erläuterung. 


Ob groß, ob klein... 


Alle vom Programm geforderten Eingaben können beliebig 
als Klein- oder Großbuchstaben erfolgen. Durch Drücken der 
ESC-Taste können alle laufenden Routinen abgebrochen 
werden. 

Das Quellprogramm besteht aus filer.pas und lib.inc. In 
lib.inc können Anpassungen an verschiedene Terminals vor- 
genommen werden. Die Erläuterungen sind in das 
Programm-Listing eingefügt. Das lauffähige Programm 
besteht aus filer com. Das File inhalt.fil wird beim ersten 
Programm-Lauf automatisch erzeugt. 

(M.Schlösser/ev) 


var 

lines, inharray 
arraynr, arraylaenge,i 
tilenane,helpstring 
pruet .„file_exist ı boolean; 
filevar ı file: 
zch t char; 


t defstring; 
+ integer; 
t anystring; 


(X$I filer.lib 9 


procedure initinhalt (var z : defstring; 
var anz.rec: Integer): 
(X liest Inhaltsverz. von der Diskette und %) 
(X erzeugt inharray %) 
begin 
anz_rec:= 0; 
pruet:= exist (’asinhalt.fild; 
assign (dateı,’asinhalt.til); 
if pruef then 
begın 
reset(datei); 
while not eof (datei) do 
begın 
read (datei ‚dateibuffer) : 
anz-rec:= anz_rect]; 
ı( .anz_rec .):= dateibuffer .progname; 
end; (X while % 


Listing. »filer.pas« 


Fortsetzung au! Seite 68 


a. 
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it anz_rec=@ then 
begin 
Iawvideo: 
gotoxy(1,12) ;write (Neuaufnahme aufrufen ’); normwıdeo: 
end; (% ıf anz-rec %) 
end (X if pruef % 
else begin 
rewrite(datei); 
lowvideo; 
gotoxy(1,12) swrite (’Neuaufnahme aufrufen ”); normvideo; 
end; (% else %) 
close (datei); 
end; (% procedure initinhalt %) 


procedure head_string (var z:defstring ; 
(X Dient zur Zuordnung der Daten für den # 
(4 auszudruckenden array % 


begin 

z(.1.):= Program‘: z(.2.):= ‘Neuaufnahme‘; 2(.3.) :=’Löschen’; 
2(.4.):= ‘limbenennen’; z(.5.):= ’CP/HM’; 

end: (% procedure head.string X) 


procedure progranmn_ueberschrift; 

begin 

ootoxy(1,18) sclreol; 

write (‘PROGRAMME (vorh: ’,arraylaenge,' max: 32 )°); 
end; 


procedure msg(zeile:integer) ; 
begin 
gotoxy(l,zeile); 


writeln (“Leuchtfeld mit Cursor-Tasten auf gewünschtes Programm stellen‘); 


writeln (“und die HOME-Taste drücken. ‘); 
end; 


procedure init_array; 
(% Schreibt inharray auf Diskette 9 


begin 
assign (datei,’inhalt.fil‘): 
rewrite (datei); 
for i:= | to arraylaenge do 
begin 
dateibuffer .prognane := inharray(.i.); 
wrıte(dateı ‚dateibuffer) ; 
end: (X for i 9 
close (datei); 
end; (% procedure init.array X) 


ETEELRRIEOIRRELBIERERBRIIBRRRIBRRIUIRE) 


(% Hauptprogramm Filer %) 
REEETETEHIRREBEOBBBRIRKERBRREREROBBBEBBBUUK 

begin 

eIrscer; 

writeln(‘ Filer für Turbo-Pascal Programme unter CP/M’); 
writeln’ written by M.A.Schlösser Juni 1985°); 
writeln; 


tor is= I to 79 do write (’-’); 
initınhalt (inharray,arraylaenge) ; 
head_string (lines) ; (% liest Funktion-Auswahl in das array lines X) 
schreib_array (lines, 5, 1,5, 13; 4 )3 
(X array/ anz/ x-y pos/ abstand/ worte/zeile %) 
ootoxy(1,D: for is= I to 79 do write (’-"): 
progr ann_ueberschritft; 
schreib_array (inharray,arraylaenge,1,17,15,4) ; 
(% schreibt Benutzer-Prog. % 
repeat (% until true = false $%) 
nsg(9) ; 
arraynr:= select (lines, 5, 1,5, 15, 4 ); 
(X array/ anz/ x-y pos/ abstand/ worte/zeile %) 
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cIrin(9, 12; 
case arraynr of 


ls begin (X% Program %) 


gotoxy( 1,9) ;Iawideo; 
writeln (’Progr ans-Au swahl ‘) ;normvideo: 
nsg( 10) ; 
arraynr:= select (inharray,arraylaenge,1,17,15,9) ; 
if arraynr {) 8 then 
begin 
assion(filevar ,inharray(.arraynr .)+’.chn’); 
chain (filear); 
end (X if arramr X) 
else cIrIn(9,11); 
end; (X case of 1 %) 
begin (% Neuaufnahme %) 
gotoxy( 1,9) ;Lowideo;writeln(’Neuaufnahme’) snoravıdeo: 
write (‘Das ins Inhaltsverzeichnis aufzunehnmende File muß ‘); 
writeln (’unter xxx.chn auf der’); 
writeln (‘Diskette vorliegen. Die Namen-Eingabe ohne File-Kennung! ‘) ; 
line_editor (’Programmanen eingeben ’,1,13, 8, filename, 
a7; 
(% TextAusgabe/ x-y pos/ Länge/ variable/ gültige Zeichen %) 
if filenane Cd ‘’ then 
begin 
Umw_in_6rossbuchstaben (filename) ; 
helpstring:= filename+‘.chn‘; 
pruef:= exist (helpstring) ; 
if pruef then 
begin 
arraylaenge:=arraylaenget 1; 
inharray(l .arraylaenge.) :=filenane: 
progr amm_ueberschrift; 
schreib_array (inharray,arraylaenge, 1,17,15,9 ; 
init_array; 
end 
else begin 
write (bell); 
gotoxy(1,13 ;clreol; 
write (”Das File --) °.helpstring,’ 
(— ist nicht auf Diskette‘); 
write (’ vorhanden. Taste drücken.’); 
repeat until Keypressed; 
end; (X else %) 
end; (% if filenane () ’’ % 
cIr!n (9,14); 
end; (X case of 2% 


3: begin (% Löschen %) 


gotoxy(1,9;lawvideo; write (‘Löschen’); normwideo; 
asg( 10) ; 
arraynr:= select (inharray,arraylaenge, 1,17,15,4) ; 
if arraynr(d8 then 
begin 
cIrin(19,1); 
gotoxy(1,1@) swrite (“File —-)’„inharray(.arraynr .), 
‘(=-- löschen (j/n) °); 
repeat 
read (kbd.zch) ; 
until upcase(zch) IN (.’J’ N’; 
if upcase(zch) = ‘J’ then 
begin 
assign (filevar ,inharray(.arraynr .)+’.chn‘); 
erase (filevar); 
for is= arraynr to arraylaenge do 
inharray(.i.):= inharray (.it1.);5 
arraylaenge:= arraylaenge-1; 
init_array; 
cIrIn(17,29 ; 
schreib_array (inharray,arraylaenge, 1,17, 15,9 ; 
end; (X it zch = J % 
end; (X if arrayır (0 9 
cIrIn(9, 19; 
progr amm_ueberschrift; 
end; (X case löschen %) 


4: begin (% Umbenennen X) 


Listing. »tller.pas« 
(Fortsetzung) 














gotoxy(1,9;1awideo; write (“Umbenennen‘); normvideo; 
msg (19); 
arraynr:= select (inharray,arraylaenge,1,17,15,4) ; 
if arraynr () 0 then 
begin 
file_exist:= false; 
cirIn (18,10; 
gotoxy(1,18) ; 
writeln (‘File umbenennen :’ ‚inharray(.arraynr .)); 
line_editor (‘Neuer Nane 
‘1,11,8,filenane,(.’0’..'9°,'A’..’z2’.); 
Umw_in_Grossbuchstaben (filename) ; 
for i:= I to arraylaenge do 
if filename = inharray (.i.) then file_exist:= true; 
if file_exist then 
begin 
gotoxy(i,1l)scireol; 
write (bell,’ein File ‘,filenane,‘ existiert bereits. 
Taste drücken ’); 
repeat until Keypressed; 
end (X if file-exist 9 
else begin 
assign (filevar,inharray (.arraynr.)+’.chn’‘); 
rename (filevar ,filename+’.chn‘) ; 
inharray (.„arraynr.) := filename; 
init_array; 
cirin (17,29 ; 
schreib_array (inharray,arraylaenge,1,17,15,9) ; 
end; (% else %) 
end; (% if arraynır OD 0 % 
cIrin (9,10; 
end: (X case umbenennen %) 
5: begin (% Rückkehr zu CP/M %) 
eirscer; write (’CP/M - Betriebssystem’) ; 
writeinswriteln; 
halt; 
end; (% case (PM 9 
end; (case %) 
until truesfalse; Listing. »fller.pas« 
end. (Schluß) 


(X Library-include Proceduren %) 

function exist(filename: anystring): boolean; 
(% prüft, ob File auf Diskette vorhanden %) 
(X wenn vorhanden wird exist=true gesetzt % 


var f: file: 
begin 
(1$]-% 
assign(f,tilenane) : 
reset(f): 
(X$1+%) 
if IOresultXd8 then exist:=false 
else exist:=true: 
end: (% function exist X 
procedure Unmw_ın_Grossbuchstaben (var text:anystring): 
(KN-H 
var i: integer: 
begin 
tor is= I to length(text) do 
text(.i.):= upcase (text(.i.)): 
end: (% procedure Ums_in_Grossbuchstaben %) 
procedure schreib.array (var name: detstring; 
anz,xstart,ystart,abstand, 
worte_pro_Zeile: integer) ı 
(% schreibt array an vorgegebene Stelle des Bildschirms %) 
(X defstring muss global definiert werden Y 


(X unter anz ist die Länge des Arravs zu verstehen % 
var 

i.x.ywortzaehler : integer: 

begin 

x:= xstart: yı=ystart: wortzaehler:= 9: 

















gotoxy(xstart,ystart) scireol; 
for i:= | to anz do 
begin 
gotoxv(x,y); 
write (nane(.i.)): 
x:= x+tabstand: 
wortzaehler :=wortzaehler + |; 
if wortzaehler= worte_pro_zeile 
then begın 
yı= ytls xı= xstart; wortzaehler:= 9; 
gotoxy(x,y): cireol; 
end: 
end: (X for i %) 
end: (% procedure schreib_array %) 


function select (var nane : detstring; 
anz,xstart,ystart,abstand, 
worte_pra_zeile : integer) : integer; 


(% Bewegt das Leuchtfeld entsprechend der definierten Tasten Y 
(% wird die ESC-Taste gedrückt, so wird select=8 zurückgelietert % 
(% ansonsten die Ifdnr des übergebenen Arrays % 
const 

(X Diese Codes beziehen sich auf das Terminal %) 

(% Basis 188 und müssen auf andere Terminals %) 

(X angepasst werden. % 


hoch = #139) (X Leuchtfeld I Zeile nach oben %) 
runter= 4139; (% Leuchtfeld I Zeile nach unten %) 
rechts= #149: (% Leuchtfeld J Wort nach rechts %) 
Iinks= #136: (% Leuchtfeld I Wort nach links %) 


bell = 6; (X Glocke % 
esc =827: (X ESC - Taste 9) 
hme = #192: (X HOME - Taste % 
var 

zch ı char: 

X,yıxmax ,vmax,i, 

arraynr : Integer: 

on_off ı boolean; 


procedure invers_on_off; 

begın 

gotoxy(x,y); 

for is= | to abstand do 
write (7 '): 

on-off:= not (on_off); 

if on_off then Iawideo: 

gotoxy(x,y); 

write (nane(.arraynr.))s; 

normvideo; 

end: (% procedure invers_on.off % 


(X Hauptprogramm selector % 
begin 
x:= xstarts yı= vstart: arraynrs= 13 on_off:= false: 
xmax:= worte_pro_zeile % abstand: 
wmax:=( anz div worte_pro_zeıle)+ystart; 
if anz mod worte_pro_zeile ) @ then vmax:=wmax + |; 
ınvers_on_off: 
repeat 
repeat 
read (kbd,zch) : 
until zch IN (.hoch runter ‚rechts,links,esc ,hane.) ; 
case zch of 
hoch: begin 
invers_on_off: 
yıay-l 
if y(vstart tnen 
begin 
yı= ystartı 
invers_on.off: 
end (X if 9 
else begin 
arraynr:= arraynr - worte_pro_zeıle; 
ınvers_on_off; 
end: 


end: (X case hoch %) Listing. »lib.Inc« 
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runter: begin 
invers_on_off; 
yızytl; 
if y)ynax then 
begin 
yert; 
invers_on_oft; 
end (% if % 
else begin 
arraynr:= arraynr + worte_pro_zeile; 
if arraynr?) anz then 
begin 
arraynr:= arraynr-worte_pro_zeile; 
yızy-]: 
end; 
invers_on_off: 
end; (% else 9 
end; (% runter %) 
rechts: begin 
invers_on_off: 
xı=xtabstand; 
if xdxmax then 
begin 
xı= x-abstand; 
invers_on_off: 
end 
else begin 
arraynr:= arrayır + 1; 
if arravnr ) anz then 
begin 
arraynr:= anz; 
x:= x-abstand; 
end; 
invers_on_off: 
end; (X else % 
end; (% rechts % 
links : begin 
invers_on_off; 
xıex-abstand: 
if x{xstart then 
begin 
x:= xstart; 
invers_on_oft: 
end 
else begin 
arraynr:= arramr - 1; 
if arraynr(i then 
begin 
arrayır:= 1; 
x:= xstart; 
end: 
invers_on_off: 
end; (% else % 
end; (% links 9 
esc : begin 
invers_on_off: 
arrayınr:= B; 
zch:= home; 
end; (X esc %) 
end: (% case % 
until zch=hme: 
if arraynr() 0 then invers_on.off: 
select:= arraynr; 
end; (% function select %) 
procedure line_editor (text : anystring; 
xstart,ystart, 
eingfeld : Integer; 
var stringvar : anystring: 
addstring ı defset); 
(A Wird die ESC-Taste gedrückt, so wird ein leerer String X&) 
(X zurückgeliefert, Unter eingfeld ist die Länge des zurück- %) 


(% zuliefernden Strings zu verstehen. % 
AN-H 
const (% Diese Codes überprüfen und evti. anpassen %) 

bel =*6: (% Klingelzeichen % 
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Esc = 12?: (X ESC-Taste Y 
return = 8135 (% Return Taste % 
bachspc = *H: (X Cursor 1 Zeichen nach linls % 


var Xıly 
zaehler : integer; 
ıch ı char: 
begin 


zaehler:= 8; stringvar:="": x:= length (text) +3; 


(% Schreibe Text und stelle Cursor auf % 
(% Eingabefeld %) 
gotoxy (xstart,vstart) scireol; write (text,’ 2°); 
for i:= | to eingfeld do 
write (‘ '); 
write (’:’); 
gotoxy(x,ystart); 


(% Erzeugen der auszugebenden Variablen %) 
repeat (% until return %) 
repeat 
read (kbd,zch): 
until (zch IN (.backspc,return.esc.)) or (zch IN (addstring)): 
if (zaehler )= eingfel® and (not(zch IN (.„backspc ,return,esc.))) then 
write (bell) 
else begin 
case zch of 
backspc: begin 
if length(stringvar))8 then 
begin 
delete (stringvar ‚length(stringvar) .D) ; 
write (backspc,’ ’,bachspc) ; 
zaehler;= zaehler-1: 
end; 
end; (% backspc %) 
Esc: begin 
stringar:= '’; 
zch:= return; 
end; (X esc %) 
return:; 
else 
stringvar = stringvartzch; 
write (zch); 
zaehler:= zaehler + 1; 
end; (X case %) 
end; (X else %) 
until zch = return; 
end; (% procedure line_editor X) 
procedure cirIn (start,ende:integer) ; 
(% löscht die Zeilen von Start bis Ende ® 
var i: integer; 
begin 
for i:= start to Ende do 
begin 
ootoxy(1,i);cireol; 
end; 
end; (% procedure cIrIn %) Listing. »lib.Inc« 
(% Ende der Library-include Proceduren 3) (Schluß) 


(% Die Benutzerfrogranme xxx.chn sollten % 
(% mit dieser Procedur abgeschlossen werden, %) 
(% um nach Filer zurückkehren zu Können v 


procedure ende; 

var diskfile : file; 

begin 

assign (diskfile,’filer.cam’); 

axecute (diskfile: 

end; Listing. vende.inc« 














Zeichenfolge analysiert 


Nicht nur zum Compilerbau müssen Zeichenket- 
ten untersucht werden. Wie man so etwas macht, 
das lesen Sie hier. 


sprachen, sind künstliche Sprachen. Sie werden 

jedoch nach den gleichen Gesetzen wie unsere natür- 
lichen Sprachen gebildet. Dazu muß man sich über einige 
Grundbegriffe Klarheit verschaffen. 


: Sprachen, wie zum Beispiel alle Programmier- 


Vokabular = Menge der existierenden Wörter 

Satz = Folge von Wörtern 

Syntax (Grammatik) = Regel zur Bildung von korrekten 
Sätzen 


Die Syntax legt fest, welche Wortfolgen zu einer Sprache 
gehören. Genau dies muß auch beim Compilerbau beachtet 
werden, da der Compiler beim Übersetzen überprüfen muß, 
ob ein Programm syntaktisch richtig geschrieben ist. 

Die beiden nachfolgenden Programme lösen diese Auf- 
gabe für eine sehr einfache formale Sprache. 

Gegeben ist folgende Grammatik: 
<A>::=al(<A>) 

Damit gelten zum Beispiel folgende Sätze: 
<A> - ((a)) 

<A>-a 

<A> — (((a))) 

Das bedeutet, daß unsere Sprache nur drei Zeichenele- 
mente kennt »a«, »(« und »)e. Das Bildungsgesetz wird aus 
den Beispielen oben deutlich: entweder handelt es sich um 
das Zeichen »a«, oder, falls Klammern gesetzt sind, muß die 
Anzahl der linken Klammern ebenso groß sein wie die der 
rechten. 

Lösung 1: rekursive Analyse 

Die Aufgabe wird in dem ersten Listing mit Hilfe einer rekur- 
siven Prozedur gelöst. In der Prozedur wird jede öffnende 
Klammer auf dem Stack abgelegt. Ist das »a« erreicht, sozu- 
sagen der »Wendepunkte, wird durch die schließenden Klam- 
mern der Stack wieder geleert. 


program zeichen_rekursiv (input ‚output; 


(Bun reerne) 
(s.» “a..) 
(### Rekursive Analyse einer Grammatik #®e®) 
(una “u.e) 
(wunuunuunuuusunuunuuunuueuuununuuunnunanenn) 


var zeichen : char; 
tehler ı booleany 


procedure a (z :ı char; var tehler : boolean); 


(unuununnnustsunsnnuuneseruuuuuuuneer) 
(se. “.“) 
(“se Rekursive Analyse Precedure #®®) 
(»»# “.rR%) 
(RER RUBURRDHERRRUUHEUERUUH EHER) 


begin 
case z of 
"«(’ ı begin 
read(z2); 
alz,fehler); 
read(z);3 
it (z <> 
endj 
a'r ı 
otherwise 
tehler ı=- trueg 
end; (® case z of #) 
ends (* Procedure a #) 


')') then tehler = true; 


Falls an irgendeiner Stelle ein Fehler festgestellt wurde, so 
setzt der Computer ein »Fehlerflag« (FEHLER : BOOLEAN). 

Die Grundstruktur zur Feststellung des übergebenen Zei- 
chens stellt ein CASE-Konstrukt dar, in dem vier Fälle unter- 
schieden werden: 

1. Zeichen = »(« 
2. Zeichen = »a« 
3. Zeichen = »)« 
4. alle anderen Zeichen (ÖTHERWISE) 

Imeersten Fallmüssen zwei grundsätzliche Aufgaben gelöst 
werden: a) Rekursiver Prozeduraufruf mit einem eben gele- 
senenen Zeichen und b) nach der Rückkehr von der höheren 
Rekursionsebene die Überprüfung, ob zu der öffnenden 
Klammer der Prozedurebene das nächste Zeichen, welches 
eine schließende Klammer sein sollte, paßt. Im Fehlerfall wird 
an den vVariablenparameter FEHLER (Fehlerflag) die 
»Falsch«-Information weitergegeben. Im zweiten Fall bleibt, 
da »a« ein erlaubtes Zeichen ist, aber danach nur mehr das 
Leeren des Stacks stattfindet, der Anweisungsteil leer. Der 
dritte Fall entspricht wiederum dem ersten und der vierte und 
letzte Fall ist sehr einfach, da hier nur das Fehlerflag gesetzt 
werden muß (unzulässiges Zeichen). 

Im Hauptprogramm werden nach dem Bildschirmaufbau 
und der Eingabeaufforderung zunächst durch den Konstrukt 
REPEAT 
READ(ZEICHEN); 

UNTIL ZEICHEN () ' '; 

führende Leerzeichen überlesen, wodurch nach dem Verlas- 
sen der Schleife in ZEICHEN schon das erste Zeichen steht. 
Als nächstes wird das Fehlerflag mit FALSE initialisiert. 
Anschließend kann nun die Untersuchung des ersten einge- 
lesenen Zeichens in einem CASE-Konstrukt folgen. 

Für den Fall einer öffnenden Klammer wird sofort mit die- 
sem Zeichen und dem Fehlerflag die Prozedur aufgerufen, 
die sich wiederum selbst so oft aufruft, bis das aktuelle Zei- 
chen ein »a« ist. Danach werden die auf den Stack abgelegten 
öffnenden Klammern wieder abgetragen. Ist das Zeichen ein 
»a«, passiert nichts, denn das Ganze ist schon fast fertig. 


begin 


(nnnunuaunnunununuuuauusuue®e) 
(an“ aus) 
(*#* Hauptprogramm ###) 
(aa “*®) 
(auunanunnnaunnuaueununune) 


writeln; 
writeln ('° Eingabe '); 
readinj 
repeat 
read(zeichen); 
until (zeichen <> ' '); 
tehler ı=e #alseı 
case zeichen of 
'(' : a (zeichen,tehler); 
a 23 
otherweise 
tehler ı= true: 
end, (# case zeichen of #) 
read(zeichen)jz 
if (zeichen <> ' ') then 
tehler ı= truej 
writeln; 
if tehler 
then 
writeln ('# Fehler #') 
else 
writeln ('% O.K. #'); 
writeln; 
end. 


Listing 1. Rekursion ist die elegante Lösung 





Lediglich wenn noch ein anderes Zeichen gelesen wurde, 
wird ein Fehlerfall durch das Fehlerflag angezeigt. Um auszu- 
schließen, daß durch ein noch folgendes Zeichen das Einga- 
bewort noch unerkannterweise falsch wäre, wird dies einge- 
lesen und überprüft: ist es ungleich einem Leerzeichen, wird 
wiederum das Fehlerflag aktiv. Den Schluß bildet noch ein IF- 
THEN-ELSE-Konstrukt, das dem Benutzer aufgrund der 
Variablen FEHLER mitteilt, ob das Eingabewort syntaktisch 
korrekt ist oder nicht. 
Lösung 2 : Iterative Analyse 

Dieses Programm löst die Syntaxüberprüfung auf »konven- 
tionellem« Wege. Dazu werden zunächst wie bei der rekursi- 
ven Lösung erst der Bildschirmaufbau, Überlesen führender 
Leerzeichen und die Eingabe erledigt. Danach beginnt die 
eigentliche Analyse. Um gleich zu Beginn Fehlerfälle auszu- 
schließen, entscheidet eine Abfrage, ob das erste gefundene 
Zeichen erlaubt ist, also entweder »a«, »(« oder »)«. Im Fehler- 
fall wird das Fehlerflag gesetzt. Falls es sich um ein erlaubtes 


program zeichentfalgen_iterativ (input „output)jz 


lnsanauuuununanusunuuunuaaraunun nee au nn] 
(sau “..®s) 
(vea# ]Iterative Analyse einer Gramatik #e#e) 
(nae ans) 
lassusan nassen naar nnm) 


var zeichen ı char; 
tehler ı booleanı 
ebene ı integerj 


(unsuuannunnannnsnunene| 
(u.a “..s) 
(se4 Hauptprogramm 4%) 
in»» “.) 
(usnsuauuausuaunuaunune) 


begin 
writelng 
writeln (' Eingabe ')j 
readinj 
repeat 
read(zeichen)j; 
until (zeichen <> ° ')j 
tehler ı= !alanı 
it (zeıchen <> °(') and (zeichen <> 'a') 
then 
tahler ı= true 
else 
begin 


Rekursive Spielereien 


Die Fibonacci-Zahlen sind ein schönes Beispiel, 
um die Unterschiede zwischen rekursiver und 
iterativer Programmierung verstehen zu lernen. 


in lehrreiches Beispiel der rekursiven Programmie- 

rung, das heißt der Programmierung von Uhnterpro- 

grammen, die sich selbst aufrufen, ist ein Lösungsweg 
zur Berechnung der Fibonacci-Zahlen. 

Der im Mittelalter lebende, italienische Mathematiker Leo- 
nardo Pisano (zirka 1180 bis 1240), stellte eine Zahlenfolge 
auf, in der jede Zahl die Summe der beiden vorhergehenden 
Zahlen darstellt und deren erste Elemente mit O und 1 vor- 
definiert sind. 

Daraus ergeben sich folgende Elemente der Folge: 


0. Element : O0 
1. Element : 1 
2. Element : 1= O+1 
3. Elenent : 2 = 1+1 
4. Element : 3= 2+1 
5. Element : 5 = 3 +2 
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Zeichen handelte, kann in einem WHILE-Konstrukt der Klam- 
merebenenzähler solange inkrementiert werden, wie das 
nachfolgend eingelesene Zeichen ein »(« ist. Damit steht ir 
dem Zähler die Zahl der öffnenden Klammern. Nun wird abge- 
fragt, ob das von der Klammer verschiedene Zeichen ein »a« 
ist. Das Fehlerflag zeigt einen Fehler an. Im anderen Fall kann 
mit dem Zählen der schließenden Klammern begonnen wer- 
den. Dazu dient wieder ein WHILE-Konstrukt mit Dekremen- 
tierung der Klammerebene und dem Einlesen des nächsten 
Zeichens. 

In der nun letzten Abfrage, ob das nachfolgende Zeichen 
ein Leerzeichen oder die Klammerebene gleich Null ist, wer- 
den die letzten Fehlermöglichkeiten des Wortes abgefangen. 

Zum Schluß wird wieder ebenso wie in der rekursiven 
Lösung, je nachdem, ob ein Fehler festgestellt wurde oder 
nicht, ein positiver oder negativer Hinweis ausgegeben. 


(Max Moser/Harry Paintner/hg) 


ebene ı= 0j 
“hile (zeichen ='(') da 
begin 
ebene ı= ebene + 15 
read (zeichen); 
end; 
(zeichen <> 'a) 
then 
tehler ı= true 
alse 
begin 
read(treichen);z 
“hile (zeichen = ')') do 
begin 
ebene ı= ebene — 13 
read (zeichen); 
end; 
i#% (zeichen <> *) or tebene <> O) then 
tehler ı= truej 
endı 
end; 
writeing 
it tehler 
then 
"# Fehler «#‘) 


writelnt'#% D.k. %°)5 


writeln 
end. 


Listing 2. Die Iterative Umsetzung Ist nicht ganz so schön 





6. Element : 8 
7. Element : 13 
8. Element : 21 


> +3 
8+5 
13 + Bund so weiter 


Man kann die Entwicklung auch mit folgender Formel dar- 
stellen: 
fti) = fli-1) + f(1-2) 

Es gibt nun zwei Möglichkeiten, die Fibonacci-Zahlen mit 
dem Computer iterativ und rekursiv zu bestimmen: 

Listing 1 zeigt die iterative Lösung mit einer REPEAT- 
UNTIL-Anweisung. Sie ist zwar ebenso effektiv wie die rekur- 
sive Lösung (Listing 2), aber bei weitem nicht so elegant. 

Allerdings ist zu beachten, daß bei rekursiver Programmie- 
rung der Stack überlaufen kann, wenn man zu große Zahlen- 
werte benutzt, da alle Daten der Rekursion (Rechenergeb- 
nisse, Rücksprungpointer und so weiter) auf dem Stack zwi- 
schengespeichert werden. 

So wird zum Beispiel das 4. Element der Fibonacci-Folge 
in folgenden Schritten berechnet (siehe Bild). 


(Max Moser/Harry Painter/hg) 
































FIBONACCI(4) 
FIBONACCI(3) + FIBONACCI(2) 


FIBONACCI(2) +FIBONACCI(1)+FIBONACCI(1)+FIBONACCI(O) 
FIBONACCI(1)+FIBONACCI(O) + 1 +1 +0 

1 +0 +2 

3 





Bild. Berechnung des 4. Elements der Fibonacci-Folge 


program fibonacci_iterativ (input ,,output); 
var index, zahl, vletzte, letzte, aktuell : integer; 
begin 
repeat 
write (Bitte geben Sie die Elementnumer der Fibonacci-Folge ein: ')3 
readlin (zahl); 
Until Zahl >= 0; 
write (’Die Fibonacci-Zahl ist '’); 
ıf zahl “= 2 then 
begin 
case zahl of 
Ö : writeln (°’0’) 
1,2 : writeln (’1'’') 


‘ 


end; 
end else 
begin 
vletzte := 1; 
letzte := 1; 
index ı= 2; 
repeat 
aktuell := vletzte + letzte; 
vletzte := letzte; 
letzte := aktuell; 
index = index + 1; 
until index = zahl; 


writeln (aktuell); 
end: 
end. 


Listing 1. Die Fibonacci-Zahlen Iterativ berechnet 


program fıibonacci_rekursiv (input ,output); (#$A-#) 
var zahl : integer; 
tunction fibo (wert : integer ) : integer; 
begin 
if wert > i 
then fibo := fibo (wert-i) + fibo (wert-2) 
else if wert = 1 
then fibo 1 
else fibo := 0 
end; 


(* Hauptprogramm *%) 


begin 
repeat 
write (‘Bitte geben Sie die Elementnummer der Fibonacci-Folge ein: '); 
readlin (zahl); 
until zahl >= 0; 
writeln ('Die Fibonacci-Zahl ist '’,fibo t(zahl)); 
end. 


Listing 2. Die Fibonacci-Zahlen rekursiv berechnet. Die Zeichenfolge »(*$A- *)« schaltet den Compiler auf rekursiven 
Code um. Viele Compiler (so auch Turbo-Pascal) arbeiten mit so einer Umschaltanweisung. 

















Numerische Integration 


Integralberechnung ist mit dem Computer in Pas- 
cal eine feine Sache. Nur die richtige Formel muß 
man kennen. 


geradezu prädestiniert, man muß ihnen nur sagen, wie. 
Mit der Simpson-Formel lassen sich bestimmte Inte- 
grale der Form 


# mathematische Berechnungen sind Computer 


b b 
Fix) = (flx)dx 
a a 


näherungsweise berechnen. 

Die Voraussetzungen hierbei sind: 

- a,b sind reelle Zahlen und es gilta < b. 

- y=f(x) sei eine im Intervall [a,b] stetige und differenzierbare 
Funktion. 

Die Lösungsformel lautet: 


n 
F(a,b,2n) = (h/3) * [fla) + f(b) + 4 L ffa + (2i-1)h) 
1 


n-1 
+ 2 Effa + 2ih)] 
i=1 


wobei das Intervall [a,b] in 2n Teilintervalle der Breite 
h= (b -a)/2n 
geteilt wird. 
Das folgende Programm berechnet mit Hilfe der Funktion 
SIMPSON zu 
X 
der gegebenen Funktion f(x) = exp(-x?) | exp (t?)dt mit 
O 


dem Intervall [0,2] 

und der Stellengenauigkeit m=5 

die Näherungswerte F(a,b.2') mit 1<=i<=k. 

Die Berechnung wird abgebrochen, wenn folgendes Krite- 
rium erfüllt ist: 

[F(a,b,2*) - Fla,b, 2""")] <= IF(a,b,2*)l * 0,5* 10°". 

Programmbeschreibung: 

In der Darstellung (Bild 1) sei die Unterteilung des Intervalls, 
sowie die Gewichtung der Funktionswerte an den Stützpunk- 
ten in der Simpson-Formel verdeutlicht: 

Das Integral ergibt sich daraus folgendermaßen: 
| = (n/3) * (Fktwert(a) + Fktwert(b) +4 * (Fktwert(S1)+ 

Fktwert(S3)+2* Fktwert(S2) 

Da bei dieser Intervallunterteilung noch keine großen 
Ansprüche an die Rechengenauigkeit gestellt werden kön- 
nen, nimmt man eine feinere Intervalleinteilung vor. 

Hierbei benutzen wir folgenden Trick: 

Die Anzahl der Teilintervalle wird nicht um zwei erhöht, son- 
dern verdoppelt (Teilintervallhalbierung). 

Der Schritt der Teilintervallhalbierung und seiner Auswir- 
kung ist in Bild 2 zu sehen. 

Dies hat folgende Vorteile: 

- Aus der Tatsache, daß die bisherigen Stützpunkte wieder 
benutzt werden, folgt eine wesentliche Verminderung des 
Rechenaufwandes. 

- Da die Anzahl der Teilintervalle exponenitiell ansteigt, kon- 
vergiert dieses Verfahren sehr schnell. 

Dabei fällt folgendes auf: 
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- Alle bisherigen Stützpunkte, sowohl die mit der Gewich- 
tung 2 als auch die mit der Gewichtung 4, erhalten bei die- 
sem Schritt die neue Gewichtung 2. 

- Die Anzahl der neuen Punkte (also die mit der Gewichtung 
4) ist auf das Doppelte gewachsen. 

- Die neuen Stützpunkte sind jeweils um die doppelte Inter- 
vallbreite voneinander entfernt. 

Um diese Erscheinung nochmals zu verdeutlichen, ist in 
der Darstellung in Bild 3 eine weitere Intervallhalbierung vor- 
genommen worden. 

Durch die stetige Intervallhalbierung wird irgendwann eine 
genügende Genauigkeit erreicht. 

Zur Feststellung dieser Genauigkeit beziehungsweise als 
Abbruchkriterium für die Unterteilungsschleife eignet sich 
eine Formel, worin 2* beziehungsweise 2*" zwei aufeinan- 
derfolgende Intervallhalbierungen bedeuten. Dieses 
Abbruchkriterium verwendet schließlich auch M zur Angabe 
der Zahl der wesentlichen Stellen. 

Die bisherigen Erläuterungen des Verfahrens lassen sich 
einfach in einen Algorithmus umsetzen. 

Beim Funktionsaufruf werden eine reelle Funktion f, die 
untere und obere Integrationsgrenze (--> ug und.og, reell), 
sowie die Rechengenauigkeit m (integer) angegeben. Das 
Ergebnis der Integration ist natürlich wieder reell. 

Damit sieht der Funktionskopf wie folgt aus: 


FUNCTION SIMPSON (FUNCTION F(X : REAL) : REAL; 
0G, UG : REAL; 
M : INTEGER) 
: REAL; 
In der Variablendeklaration sind folgende Bezeichner fest- 
gelegt: 
SUMUO : REAL 


- Summe der Fktwerte der Integrationsgrenzen 


Gewichtung 1 


I---.-h-»---1 
Tellintervallbreite 





Blld 1. Gewichtung In Tellintervallbreite: zwei wichtige Fakto- 
ren für die Simpson-Formel 


bisherige Gewichtung 1 


neue Gewichtung 


Nummer des neuen 
Stützpunktes 





Bild 2. Verkleinern wir die Tellintervalle, so wird das Ergebnis 
genauer 


(a) 
Nummer des neuen 
Stützpunktes 





barer 





: REAL 
- Summe der Fktwerte mit Gewichtung 2 in der Simpson- 
Formel 
SUMNEU SU REAL 
- neuberechnete Summe der Fktwerte mit Gewichtung 4 
INTALT, INTNEU : REAL 
- letzter und aktueller Integralwert 
DELTA : REAL 
- aktuelle Teilintervallbreite (h) 
ZNEUPKT : INTEGER 
- aktuelle Anzahl der neuzuberechnenden Fktwerte 
COUNT : INTEGER 
- Schleifenzähler zur Summierung der Fktwerte 
ZEHNHOCHM : INTEGER 
- »Konstante«, enthält 10 für Abdruckkriterium 
Nun zum eigentlichen Algorithmus. Beim Eintritt in das Pro- 
gramm sind mehrere Größen zu initialisieren: 
SUMUO : = F(UG) + F(0G) 
- SUMUO wird für den ganzen Fktaufruf so festgelegt. 
DELTA : = (0G - UG)/2 
- Startwert der Teilintervallbreite 


ZEHNHOCHM = TRUNC(EXP(M*LN(10))) = 101M 
SUMALT =d 

INTNEU =0 

SUMNEU 2er 
Startwerte für ersten Durchlauf 

ZNEUPKT = 


- beim ersten Durchlauf nur 1 neuer Fktwert 

Nach der Initialisierung folgt nun die »Integrationsschleife«. 
Ihre grundsätzliche Struktur stellt ein REPEAT-UNTIL- 
Konstrukt dar, wobei als Abbruchkriterium die eingangs 
erwähnte Formel dient. 




















In der Schleife werden folgende Aufgaben gelöst: 
1.) Aufaddieren der neuen Funktionswerte (Abstand: dop- 
pelte Teilintervallbreite mit Beginn beim 1. Stützpunkt nach 
der Untergrenze). 
2.) Wenn das Abbruchkriterium nicht erfüllt ist: 
a.) Verdoppeln der Anzahl der neu zu berechnenden Stütz- 
stellen = ZNEUPKT 
b.) Halbieren der Intervallbreite 
c.) Sichern des berechneten Integrals für den Vergleich beim 
nächsten Schleifendurchlauf. 
d.) Umbenennen der Funktionswerte mit Gewichtung 4 zu 
den Funktionswerten mit Gewichtung 2 
e.) Neuinitialisierung der Summe mit Gewichtung 4 auf O 

In der Funktion SIMPSON sieht die Schleife wie folgt aus: 


REPEAT 

INTALT := INTNEU; 

SUMALT := SUMALT + SUMNEU; 

SUMNEU := 0; 

FOR COUNT := 1 TO ZNEUPKT DO 
SUMNEU := SUMNEU + F(UG+(2*COUNT-1)*DELTA); 
ZNEUPKT := ZNEUPKT#2; 

DELTA := DELTA/2; 


UNTIL (Abbruchkriterium erfüllt); 


Den letzten Teil der Funktion bildet schließlich die Über- 
gabe des beim letzten Durchlauf berechneten Integrals, bei 
dem das Abbruchkriterium erfüllt wurde, an den Funktionsbe- 
zeichner. 

Sollte der zur Verfügung stehende Compiler die Übergabe 
von Funktionen an eine Funktion nicht erlauben (zum Beispiel 
Turbo-Pascal), so muß man die Funktion SIMPSON im Haupt- 
programm realisieren oder man behilft sich, indem man die 


—— ne 
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Funktion als global vereinbart. Sie muß dann aber vor jedem 
Programmstart neu eingegeben werden - der Bedienungs- 
komfort sinkt. 

Um die Funktion SIMPSON überhaupt nutzen zu können, 
benötigt man noch ein Rahmenprogramm, das die zusam- 
mengesetzte Funktion f(x) im Intervall [a,b] ann+ 1 Stützstel- 
len auf die wesentliche Stellengenauigkeit m tabelliert. 

Die Platzhalter der Daten für Intervallanfang, -ende, Stellen- 
genauigkeit und Stützpunkte wurden als Konstante darge- 
stellt. Sie könnten jedoch auch ohne weiteres vom Programm 
eingelesen werden. Somit sieht der Programmkopf wie folgt 
aus: 

PROGRAM RAHMEN (INPUT;OUTPUT); 
CONST A = 0.0; (*Tabellierungsanfang *) 
B = 2,0; (*Tabellierungsende *) 


N = 40; (*N+1 Stützstellen zur 
Tabellierung *) 
M= 5; (* Anzahl der signifikanten 


Stellen zur Integration *) 


Structogramm der Funktion Simpson 


Initlalisieren der Summe des Anfangs- und Endwerts der Intervallbreite 
des Integrals, 
der Hilfsvariablen für die neuen bzw. alten Integralwerte 
und der Hilfsvariablen für die Summe der neuen bzw. alten 
Stützpunkte des Integrals 
und des Anfangswerts der Anzahl der Teilintervalle des 
Integrals. 


Teilintervallbreite des Integrals := (Obergrenze-Untergrenze) / 2 


Hilfsvariable für Zehnerpotenz := EXP (Stellengenauigkeit « LN(10)) 


Sicherung des letzten Integralwerts für die Abbruchent- 
scheidung 


Schleife von 1 bis Anzahl Stützpunkte 
Bi 


Verdoppeln der Anzahl der Stützpunkte 


Wiederholen des Blocks, bis die gewünschte Stellengenauigkeit er- 
reicht ist. 


Structogramm der Funktion FKT 


Konstante für Integraluntergrenze 


Funktionsaufruf SIMPSON, die Funktion TEILFKT, Integraluntergrenze, 
Argument und Stellengenauigkeit werden als Aktualparameter Üüberge- 
ben 


Funktionswert FKT := EXP (-x«x) « Funktionswert von SIMPSON 


Structogramm des Hauptprogramms 


Konstanten für Intervallanfang, Intervallende, Anzahl Teilintervalle und 
die gewünschte Stellengenauigkeit 


Ausgabe der Überschrift für die Funktionsliste 


Teilintervallbreite := (Intervallende -Intervallanfang) / Anzahl der Teil- 
intervalle 


Schleife von O bis Anzahl der Teilintervalle 


Argument := Intervallanfang + Schleifenindex » Teilinter- 


vallbreite 


Funktionsaufruf von FKT, Argument und Stellengenauigkeit 
werden als Aktualparameter übergeben 


Ausgabe des Arguments und des Funktionswerts in die Aus- 
gabeliste 














: REAL; (%* Stützstelle als Argument für die 
Funktion *) 

: REAL; (%* Schrittweite zur Tabellierung *) 

:0... N; (* Schleifenzähler für die 
Stützstellen *) 


HH 


Darauf folgt der Funktionsdeklarationsteil. Zum einen wird 
eine Funktion benötigt, die die angegebene, zusammenge- 
setzte Funktion beinhaltet (FUNCTION FKT). In dieser Funk- 
tion ist auch die Integrandenfunktion TEILFKT eingebettet, 
die dann als aktuelle Parameterfunktion für die Integrations- 
funktion SIMPSON verwendet wird. Hier wird mit dem linken 
Term EXP(-X*X) das Integral von TEILFKT EXP(X*X) in den 
Grenzen von UG bis OG auf eine Genauigkeit vonM wesentli- 
chen Stellen berechnet. 

Im abschließenden Hauptprogramm findet nur noch die 
Berechnung der Funktionswerte an den Stützstellen, sowie 
die tabellarische Ausgabe der Ergebnisse statt. 

(Max Moser/Harry Paintner/hg) 


program rahmen (input „output)s 


(0000030390 2URUULESR2HERRHEHUUOUCHAHRRHHESTTEEHLHTEUHEEHHELTUHRESHEHCM) 
(e0® ..®e) 
(osaa Rahmeanprogr aan zur Naeher ungawaıeen Integration nach Simpsan #00) 
(oe ...) 
(BL E29RR290000HHHU0FURLUERLEHERREEEHRHHURLLEHEHLRHELREUHEHERHH EHE HERR HEEHRHMM) 


ceonst a = 0.0, 
b = 2.0 
n = 40; 
mn. 5) 
vVer „.hırealı 
i ıö6 .. ng 


IBssssassssssnansassaunen nase 1 ne 1 ke 99999 ao ges n pen ne ea gan en) 
(va00 aee) 
(une Naeherungsaweiae integration usber sine Funktion # (x) ..“us) 
(000 “ee) 
lanasasuunsaneuounaRn Ran BHO RER RUHUEHOE RER EHER ER HE S HL REES RUE ET HHH HR THREE) 


tunction simpson l#unction f(nıreal)ıreal;j 


ug ,og ıraalj 
a sinteger)ırealjı 


ı raalyj 
ı realj 
ı integaerz 


var aumuo ,sumalt ,sumnau 
intalt,intnen,delta 
znaeupkt ‚count ‚zehnhache 


begin 
eumua = tlug) +Ftlag)y 
delta ı= (og-ug) /23 
zehnhocha ı= trunc (euplimeln(10O))); 
uuaalt ı= 
suaneu ı- 
ıntneu .- 
zneupkt = 
repeat 
intalt ı= intneus 
sumalt ı= sumalt + suanaus 
sumneu ı= OÖ . 
tor count ı= I ta znsupkt da 
auansu ı= auaneu + flug*+12 e count-1) e dalta)j 
intneu ı= delta ® (aumua * 4 ® sumnau + 2 ee sumalit) / 5 
zneupkt 'ı= zneupkt ® 2; 
delta ı= delta / 2; 
until (abe (intneu-intalt)ezehnhoche <= abs tintneu / Z2)); 
eimpson ı= intneuj 
endı (ee o$ #unction siapsaon ®) 


(099900 ..3.0880030905999.. 8020020090000 9200909090 0000000 0009082000) 
(000 “.se) 
(os0e Zu tabellierende Funktion as.) 
IK YY} v..o) 
(UnB000002440HU2HUHRBREERHRUUHUOHHHETEREEHU URHEBER EBLU ELBE HEHHTEHHR0G) 


*tunction #kt (nırealjmiinteger) ı real; 
const ug = 0.01 
*tunetion teilfkt (tıreal) ı really 
begin 
teiltkt ı= enp (tetıy 
endı (® of tunction teiltkt ®) 
begin 
(kt ı= anp (-n © x) © simpaon (teilfkt,ug,n,m)} 
endj (® of tunction kt ®e) 


(sn00nn002u02 RR RRR0UHEEEULHRRPUHRUHRLRERULEREHEAHEUEHROH HERE EAST.) 
0... ...) 
(vue Hauptprogr amm ...) 
(0080 ...) 
(BU0RB0nHS22 HR LE RHRRRHLERBHRSTELLRRURAR HERR RER SEHR LH EEE EEE EFT HR T RR EHEM) 


bagın 
writeing writein;) writelns 
wrıtein (' .. n >80 
witelng 
h ı= (b-a)/nı 
tor i ı= O to n da 
begin 
x ıe a*+ti en 
witeiln (° 
ends 
writeing 
end. 


"nsi2,. "stk ,adılo)g 


Listing. Integration nach Simpson 















































Haben Sie auch Probleme mit der Lösung der Kno- 
belaufgabe »Türme von Hanoi«? Aber benutzen 
Sie doch einfach Ihren Computer und lassen Sie 
ihn für sich knobeln. 


er kennt nicht das Problem der Türme von Hanoi? 
w Die Aufgabe: Es existieren drei Plätze, wobei auf 

einem der äußeren Standorte ein aus mehreren, 
immer kleiner werdenden Scheiben bestehender Turm steht. 
Nun muß dieser Turm auf den anderen äußeren Platz umgela- 
gert werden. Natürlich soll nicht der komplette Turm auf ein- 
mal transportiert werden, sondern Scheibe für Scheibe. Bei 
dieser Umschichtung darf immer nur eine kleine Scheibe auf 
eine größere Scheibe gelegt werden. 

An dieser Knobelaufgabe haben sich schon große Geister 
versucht und auch sehr lange darüber gegrübelt. Wenn nur 
drei Scheiben auf dem Turm liegen, ist es janoch relativ ein- 
fach herauszufinden. Haben Sie dagegen einen Turm mit viel- 
leicht 20 Scheiben, so ist es so gut wie nicht mehr zu schaf- 
fen (es sei denn, Sie hätten einige Jahre Zeit dafür). 

Die Prozedur »hanoie« (Listing) nimmt Ihnen nun die Denk- 
arbeit vollständig ab. Sie müssen nur die Anzahl der Scheiben 
des Turmes eingeben, und schon erscheint die Ablegevor- 
schrift auf dem Bildschirm. 

Versuchen Sie aber ruhig zuerst einmal, das Problem mit 
drei, vier oder fünf Scheiben »zu Fuß« anzugehen, bevor Sie 
sich die Lösung vom Computer zeigen lassen. 

(Dieter Mayer/hi) 














Die Türme von Hanoı 


PROGRAM hanoi (INPUT ,DUTPUTI5 


VAR 
n, 
et 


PR 


BE 


EN 


BEGIN 


isıraalj 
agenzahl ı@..MAXINTI 


OCEDURE verlagere(hoehe,von,zu,uebersınteger)j 
PROCEDURE tragt (runter ,‚raufıinteger); 
BEGIN 
write(runter si,‘ >’ ‚rauf, I 
ismi+ä; 
nı en+1j 
IF i>=88 THEN BEGIN 
i:=0j 
END (send it®) 
END; 
BIN (sverlagere®) 
IF hoehe>@ THEN BEGIN 
verlagere(hoehe-1,von „ueber ‚zu) 
tragt (von,zu)j 
verlagere(hoehe-1 ,ueber ‚zu, von)j3 
END; (send if®) 
Dj (send verlagere®) 


write( Wegen Verstaendıqungs ')ı 

writelnt ’schwierigkeiten in Hanoi muss der '); 
writet Turm von Hanoi-Nord nach Hanoi -Qued ')j 
writelnt ' verlegt werden. ')j 

writeln(t Ein Zwischenlager gibt es in Hanoi -Mitte. ')j 
writelnt Beim Verlegen ist zu beachten: ')j 
writeln(‘-nur die jeweils oberste Etage kann ')3 
write(’ von einem Lager in ein anderes )j 
writeln(’ transportiert werden ’')ı 

write(’-eine Etage darf nicht auf '’)j 

writelnt eine kleinere gelegt werden ')j 

writeing 

writet Bitte die Anzahl der Etagen angebanı ')j 
readin (etagenzahl)j 

i1=8; 

n:=@j 

verlagere(etagenzahl ,‚1,2,3)1 

writein; 


writeln('Anzahl der Umlagerungenı °',nı5ıB9)3j 





Zahlen-Tabellen 


Ein nützliches Programm, das Ihnen auf einen Blick Zahlen 
und deren Quadrat- oder Kubik-Funktionen übersichtlich aufzeigt. 
Es gibt oft Situationen, in denen diese kleine Anwendung recht nützlich ist. 


iese kleine Routine zeigt Ihnen die Quadrat-, Kubik-, 
»Hoch 4«- und »Wurzel«-Werte einer Zahl in einer 
übersichtlichen Tabelle. So können Sie sich auf ein- 
fache Art eine Liste erstellen, die Ihnen die gebräuchlichsten 
Werte auf einen Blick liefert. Allerdings werden nur Zahlen bis 
181 richtig verarbeitet (dies hängt mit dem Format der Real- 
Zahlen zusammen). 





Die Prozedur »cIrscr« ist MS-DOS-spezifisch. Man kann sie 
auch weglassen, da hiermit nur der Bildschirm gelöscht wird. 
Wollen Sie Zahlen ausgeben, die größer als 21 sind, so ist nur 
die Bedingung in der Until-Schleife auf einen höheren Wert 
als 21 zu setzen (maximal 181), oder das Format der Zahl in 
der Variablendefinition in Real umzuwandeln, und die Ausga- 
beformatierung »zahle in der Repeat-Schleife durch 
»write(zahl:4:0,...«e zu ändern. (Dieter Mayer/hi) 


> In a 


PROGRAM tabelle; 


VAR 
z 


ahl:integer; 


wurzel ‚quadrat ,kubik,hoch4:real; 
BEGIN 
zahl:=0; 


ci 


write( "Zahl: 
writeln(': 


rscr; 
Quadrat: 
Hoch 4: 


Kubik’)3 
Wurzel: ‘); 
repeat 

quadrat:=zahl*zahl; 

kubiks=quadrat#tzahl; 

hoch4: =quadrat#quadrat; 

wurzel:=sgrt (zahl); 

write(zahl:2, 

write’ 

write(' 

writelnt(’ 

zahl:=zahl+1; 
until zahl >21 


"„quadrat:5:0O)3 
"„kubik:5:0); 
",hoch4:7:0); 
"wurzel:10:7); 





